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Vorwort 

Liel^er Golour — Genie Preundl t 

IMacHdeTn unser *Colour-Genie — BucH I* ein echter 
’Renner* geworden ist, haten uns viele Golour — 
Genie-Benutxer, ein zweites Buch speziell für 
ihren Gomputer herauszubringen. 

Gesagt - Getan: 

Vor Ihnen liegt das *Golour- Genie-Buch II*t 

Auch dieses Mal finden Sie auf Uber lOO Seiten 
interessante Programme und TricKs; schauen Sie 
in das Inhaltsverzeichnis auf der nächsten Seite, 
um sich davon zu überzeugen. 

IMeben mehreren interessanten Spielen, darunter 
ein Komplett erKlärtes Maschinensprachespiel (t>, 
GraphiK- und MusiKprogrammen, werden vor allen 
Dingen die DisK-Benutzer unter Ihnen wissenswer¬ 
tes in diesem Buch finden, z.B. eine schnelle 
Routine, mit der DisKetten formatiert werden 
Können u.v.m. 

Wir wünschen Ihnen viel Spaß beim HacKen und 
sei der Tippfehlerteufel nicht allzusehr 
gegen Siet 

Bonn, im Dezember 1983 


Kalle Braun 
Jürgen Buchmüller 
FranK Seger 
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Einige allgemeine Hin^^eise 


Bei allen Programmlistings in diesem Buch sind folgende Zei¬ 
chenumwandlungen zu beachten: 

entspricht dem "/SD * 

'Ä' entspricht dem " [ " 

Die meisten Basic-Programme in diesem Buch sind "entpackt", 
d.h. nach jedem Befehl folgt ein Leerzeichen, in jeder Zeile 
steht nur ein Befehl usw. Es ist natürlich nicht nötig, alle 
diese Leerzeichen mit einzugeben, es erleichtert jedoch das 
Programmverständnis und die Fehlersuche. 

Es empfiehlt sich, zunächst das "Colour-Genie Buch I" zu lesen, 
da dort wesentlich einfachere Dingen erklärt und beschrieben 
werden. In diesem Buch werden sehr viele Probleme in Maschinen¬ 
sprache gelöst, dies erfordert natürlich gewisse Kenntnisse des 
Rechners, die Sie sich zunächst aneignen sollten. 

Um sich in die Maschinensprache des Colour-Genie einzuarbeiten, 
empfehlen wir Ihnen: 

- "Programmierung des Z80" von Rodnay Zaks, erschienen im 

Sybex-Verlag 

- "Das Colour-Genie ROM-Listing" von TCS 
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Ein Musikprogramm in Basic: Der *BLUESMRKER 


Das folgende Basicprograaim erzeugt Melodien, die einem Blues 
nachempfunden sind. 

Es sind dabei drei Grundakkorde vorgegeben, die in den DRTA 
Zeilen 190 bis 210 stehen. Die erste Zahl entspricht der Oktave 
und die zweite der Tonhoehe. wie sie im PLAY Befehl benutzt 
werden. In Zeile 220 stehen die drei Töne für den Baß. Zeile 
230 enthält codiert die Folge der Akkorde In Zeile 240 bis 260 
stehen die Töne, die bei der Melodie zum jeweiligen Akkord 
gespielt werden können. 

Die Melodie wird während des Programmlaufs zufällig aus den zu 
dem Akkord passenden Noten ausgewählt. Mit der Eingabe des 
Tempos bestimmen Sie die Geschwindigkeit der Baßbegleitung. 


Programmlisting: 


100 DEFINT A-Z 
HO CLS;C0L0UR5 

120 AS*'X0L0UR GENIE Bluesmaker'' 

130 F0RL*1T013 

140 C0L0URCLAND15)+1 

150 PRINTTABCDAS 

160 NEXTL 

170 PRINT:PRINT 

180 INPUT"Tempo (1...6) ";TE 

190 DATA 5.2.6.2.12.2.6,2 

200 DATA 1.3,2.3.9.3.2.3 

210 DATA 2.3,3.3.4.3.3.3 

220 DATA 1.2.4.2.5.2 

230 DATAl.1.1.1.2.2.2.2.1.1.1.1.3.2.1.1 
240 DATA 1.4,9.4.3.4.10.4.5.4.12.4.1.5 
250 DATA 1.4.9.4,4.4.10.4.5.4.12.4.1.5 
260 DATA 5.3.12,3.7,3.8.4,2,4.4.4.5,4 
270 DIM BT(3.4).B0C3.4) 

280 DIM LTC3).L0C3) 

290 DIM L(16) 

300 DIM 0TC3.7).30(3.7) 

310 FOR X*1T03:F0R Y*1T04 
320 READ BT(X.Y).BOCX.Y) 

330 NEXT Y.X 

340 FOR X-1T03 

350 READ LTCX).LOCX) 

360 NEXT X 
370 FOR X-1T016 
380 READ LCX) 

390 NEXT X 

400 FOR X-1T03:F0R Y*1T07 
410 READ OTCX.Y).30(X.Y) 

420 NEXT Y.X 
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430 C=1:T=1:B=0 

440 GOSUB 470 

450 GOSUB 630 

460 GOTO 440 

470 IF BOI THEN 580 

480 PLAY CI,1,0,0) 

490 PLAY C2,1,0,0) 

500 0*0+1 :IF OOl THEN RETURN 
510 0=0:B»0 
520 T»T+1 

530 IF T05 THEN RETURN 
540 T«1 

550 P«P+1:IF P»17 THEN P*1 
560 C*LCP) 

570 RETURN 
580 0=0+1 

590 IF 0»TEMP0 THEN B=1:0«0 
600 PLAY CI,L0CC),LT(C),8) 

610 PLAY C2,B0CC,T),BTCC,T),8) 

620 RETURN 

630 NT=NT+RN0C3)-2 

640 IF NT<1 THEN NT=1 

650 IF NT>7 THEN NT»7 

660 PLAY C3,aOCC,NT),aTCC,NT),9) 

670 RETURN 
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Enterprise - ein strategisches Uiel t raumspiel 


(Für dieses Spiel muß Ihr Colour-Genie mit 32K RAM ausgerüstet 
sein. Das Programmlisting ist kommentiert, so daß wir Ihnen 
nur noch möglichst wenige Fehler beim Rbtippen wünschen !) 

SPIELERKLÄRUNG 

1) Einleitung: 

Enterprise ist ein Strategiespiel, bei dem es auf eine 
kluge Taktik ankommt. Man bewegt sich durch die Milch¬ 
straße auf der Suche nach Klingonen. die die friedlichen 
Planeten der Föderation mit Tod und Vernichtung überziehen. 
Sie sind nun der Kommandant des Sternschiffs ENTERPRISE, 
dem einzig verfügbaren Kampfraumer in dem Teil der Galaxis, 
wo die Klingonen zuletzt geortet worden sind. 

Unter Lebensgefahr müssen Sie die Klingonen bekämpfen und 
vernichten, um die Planeten vor dem endgültig Untergang zu 
bewahren. Zu Ihrer Unterstützung sind in der Galaxis einige 
Raumbasen verteilt, an die Sie bei Bedarf andocken können. 
Die Enterprise wird dann aufgetankt und evtl, repariert. 
Wenn Sie andocken wollen, müssen Sie nur in denselben Raum¬ 
sektor steuern, in der die Basis steht. 

2) Kommandos: 

Ein Kommando wird vom Computer dann erwartet, wenn auf dem 
Bildschirm 'BEFEHL ?' erscheint. Wenn Sie einen falschen 
Befehl eingeben, wird eine Zusammenfassung der gültigen 
Befehle ausgegeben. 


Mit diesem Kommando können Sie die Enterprise durch die 
Galaxis bewegen. Die Galaxis ist in Quadraten und Sektoren 
unterteilt. Wollen Sie Klingonen bekämpfen, so müssen sich 
diese in Ihrem Quadranten aufhalten. Um einen solchen 
Quadranten zu erreichen, geben Sie den Befehl NRV 
ein. Sie werden dann nach Richtung und Länge Ihres Kurses 
gefragt. Der Wert für die Richtung liegt zwischen 1 und 8 
und bedeutet folgendes: 




■> 1 


Die Eingabe von Richtungswerten erlaubt auch Kommazahlen 
damit eine genaue Steuerung möglich ist. 

Die Kurslänge wird durch den Warpfaktor festgelegt. 

Die Zahl vor dem Komma gibt dabei die Anzahl der zu durch¬ 
fliegenden Quadranten und die Nachkommazahl die der 
Sektoren an. Aber Vorsicht ist geboten ! Sollte ein Stern 
auf Ihrer Flugbahn liegen, so werden die Triebwerke 
automatisch abgeschaltet und die Energie für den Flug geht 
verloren. 





> 


Möl-iealD-t ÄS -t er- 


Der Nahabtaster zeigt Ihnen ein Bild des Quadranten, in dem 
sich die ENTERPRISE aufhält, sowie einen verkürzten Status¬ 
report. Ein Quadrant ist in 8 mal 8 Sektoren unterteilt. 


Die Symbole bedeuten; 


Enterprise E 
Klingone K 
Raumbasis B 
Stern * 


RF^TT — > 


ReT^TvÄto-t ÄS -t & ir 


Der Fernabtaster zeigt den Inhalt ddes eigenen und der um¬ 
liegenden acht Quadranten an. Der dreistelligen Zahl ent¬ 
nehmen Sie: 


1 . 

Ziffer 

- Anzahl 

der 

Klingonen 

2 . 

Ziffer 

- Anzahl 

der 

Räumstationen 

3. 

Ziffer 

- Anzahl 

der 

Sterne 


RH - > 


R 1^ Ä s ö r* 


Mit dem Phaser kann amn alle Klingonen im Quadranten mit 
der Energie beschießen, die man angibt. Ist die abgefeuerte 
Energiemenge zu knapp gewesen, so greifen die Klingonen 
ihrerseits die ENTERPRISE und können erheblichen Schaden 
anrichten (Status-Report beachten!). 

nrOFR — > Tor-ioeclo 

Sie feuern ein Torpedo ab. indem Sie wie beim Navigieren 
den Kurs angeben. Sollten nach dem Rbschuß des Torpedos 
noch Klingonen vorhanden sein, so schießen diese ebenfalls 
auf die ENTERPRISE. Der Torpedokurs kann über 
COM, OptionZ vom Bordcomputer errechnet werden. 

SCH — > Scl^i-i'tzscl^ir'Yn 

Dieser Befehl verändert die Energie der Schutzschirme. 

Wird die ENTERPRISE angegriffen, so sind diese Schirme 
das einzige Mittel einen Kampf überstehen. Ohne Energie 
auf den Schutzschirmen wäre Ihr Schiff beim geringsten 
Treffer vernichtet. 
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COM 


— > 


C -t e r* Ä t> r r'ÄS® 


Nachdem Sie dieses Kommando eingegeben haben, wir die Frage 
nach einer Option gestellt. Diese Option muß eine Zahl 
zwischen 0 und 4 sein, die folgende Bedeutungen haben: 

0: Zeigt alle bisher erfolgten Fernabtastungen. 

(Code siehe oben) 

1: Gibt einen Statusreport 

2: Torpedokursberechnung (Riehtung/LängeD 

3: Rechnet Kurs und Geschwindigkeit zur Sternbasis in 

Ihrem Quadranten uas. Der Warpfaktor beträgt nur 
1/10 des Geschwindigkeitswertes. 

4: Berechnet den Kurs zwischen zwei Punkten. 


Lassen Sie sich durch die Vielfalt der Kommandos nicht 
verwirren. Nach einiger Übung wird Ihnen jeder Befehl in 
Fleisch und Blut übergehen. Etwaige Unklarheiten werden 
sicherlich im Spiel geklärt werden. 


Programmlisting: 


10 ' SUPER STRR TREK 
20 ' 

30 RANDOM 
40 CLEAR 600 
50 COLOUR 3 
60 CLS 

70 PRINT'"Der Weltraum.... unendliche Weiten.... 

80 COLOUR 5 

90 PRINT"Wir schreiben das Oahr 2163 alter 
100 PRINT^Zeitrechnung. Die ENTERPRISE ist mit 
110 PRINT'*ihrer ueber 400 Mann starken Besatzung 
120 PRINT”Unterwegs um neue Welten zu erforschen, 
130 PRINT^'neues Leben und neue Zivilisation. 

140 PRINT 
150 COLOUR 11 

160 PRINT'Sie dringt dabei in Galaxien vor. die 
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170 PRINT*'nie ein Mensch zuvor gesehen hat !” 

180 PRINT"Ihre Rufgabe als Captain der Enterprise 

190 PRINT"ist es, Ihr Schiff und die Besatzung 

200 PRINT^vor den Rngriffen der feindlichen 

210 PRINT"Klingonen zu schuetzen 

220 PRINT 

230 COLOUR 16 

240 PRINT^Die Foederation wuenscht Ihnen 
250 PRINT” viel Erfolg. 

260 ZS»” 

270 DIM G(8. 8). CC9. 2D, K(3, 3). N(3), ZC8, 8D, D(8) 
280 T»( RND(20)+20)*100 
290 T0»T 

300 T9«RND(10)+25 

310 D0=0 

320 E»3000 

330 E0=E 

340 P»10 

350 P0»P 

360 S9»200 

370 S»0 

380 E9»0 

390 K9*0 

400 XS=”basi5” 

410 XOS*” ist” 

420 ' INIT ENTERPRISE POSITION 
430 Q1»RNDC8) 

440 Q2»RNDC8) 

450 S1»RND(8) 

460 S2«RNDC8) 

470 FOR I«1 TO 9 
480 CCI, 1)»0 
490 CCI. 2D»0 
500 NEXT 
510 CC3. 1)»-1 
520 C(2. n«-i 
530 CC4. n»-i 
540 CC4. 25»-l 
550 CC5. 2)»-l 
560 CC6. 2)»-l 
570 CCl, 2)»1 
580 C(2. 2)»1 
590 CC6, n»i 
600 C(7, n »1 
610 CC8, n*l 
620 C(9, 2)«1 
630 CC8, 2)»1 
640 FOR I»1 TO 8 
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650 DCI)»0 
660 NEXT 

670 Al$«''NAVNATFPlTPHATORSCHZERCOM'' 

680 ' GRLRXIS RUFBRUEN 

690 ' K3*Klingonen B3=Basis S3=Stern 

700 FOR I»1 TO 8 

710 FOR 3-1 TO 8 

720 K3-0 

730 2(I, 3)»0 

740 R1=RND(0) 

750 IF RI>.98 THEN K3-3i K9-K9+3: GOTO 780 
760 IF RI>.95 THEN K3-2: K9-K9+2: GOTO 780 
770 IF RI>.80 THEN K3-1: K9-K9+1 
780 B3-0 

790 IF RNDC0)>.96 THEN B3-1: B9-B9+1 
800 GCI, 3)-K3»100+B3»10+RND(8) 

810 NEXT 
820 NEXT 

830 IF K9>T9 THEN T9-K9+1 
840 IF B9-O0 THEN 900 

850 IF GCQl. Q2)<200 THEN GCQl. Q2)=G(Q1. Q2)+100: K9-K9+1 
860 B9-1 

870 GCQl. Q2)»GCQ1, Q2)+10 
880 Q1»RND(8) 

890 Q2«RND(8) 

900 K7-K9 

910 IF B901 THEN X$»"basen": XOS»'' sind'' 

920 COLOUR RND(16) 

930 PRINT § 930."DruecKe <RETURN>" 

940 IF(PEEKC«cHF840)RND 1) »0 THEN 920 

950 CLS 

960 COLOUR 16 

970 PRINT"Das Oberkommando gibt Dir den Ruft rag:" 

980 PRINT 

990 PRINT"Zer5toere":K9:"Klingonische Raumschiffe," 

1000 PRINT"die in Foederationsgebiet eingefallen" 

1010 PRINT"sind.bevor sie das Hauptquartier" 

1020 PRINT"angreifen koennen." 

1030 COLOUR 7 
1040 PRINT 

1050 PRINT"Du hast bis STRRDRTE";T0+T9;"Zeit.also":T9 
1060 PRINT"Einheiten" 

1070 COLOUR 6 
1080 PRINT 

1090 PRINT"Es";XOS: B9;"Sternen":X$:" im eventuellen" * 
1100 PRINT"Kampfgebiet.um Dich zu versorgen" 

1110 ' QURDRRNT BERECHNEN 
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1 120 

Z4 = Q1 



1 130 

Z5«Q2 



1140 

K3 = 0 



1150 

B3«0 



1160 

S3 = 0 



1170 

G5*0 



1180 

D4*RND(.5) 



1 190 

ZCQl. Q2)«GCQ1. Q2) 



1200 

IF Q1<1 OR Q2<1 OR Ql>8 OR 

Q2>8 

THEN 1470 

1210 

GOSUB 4940 



1220 

PRINT 



1230 

IF TOOT THEN 1320 



1240 

COLOUR 16 



1250 

PRINT 



1260 

PRINT"Deine Mission beginnt 

im galaktischen 

1270 

COLOUR 5 



1280 

PRINT G2S; 



1290 

COLOUR 16 



1300 

PRINT*** . ** 



1310 

GOTO 1330 



1320 

PRINT**Du kommst nach ***;G25 

:***.*’ 


1330 

PRINT 



1340 

K3*INTCGCQ1. Q2)*.01) 



1350 

B3*INTCG(Q1. Q2)if. n-10*K3 



1360 

S3*G(Q1. Q2)-100ifK3-10*B3 



1370 

IF K3«0 THEN 1430 



1380 

COLOUR 3 



1390 

PRINT**KRMPFGEBIET 

CONDITION ROT** 

1400 

IF S>200 THEN 1430 



1420 

PRINT**SCHUTZSCHIRME GEFREHRLICH 

SCHWACH** 

1430 

FOR I»1 TO 3 



1440 

KCl. 1)=0 



1450 

KCl. 2)*0 



1460 

NEXT 



1465 

COLOUR 16 



1470 

FOR I«1 TO 3 



1480 

KCl. 3)»0 



1490 

NEXT 



1500 

Q$*Z$+Z$+Z$+Z$+ZS+Z$+Z$+LEFTSCZ$ 

. 17) 

1510 

' POSITIONEN IN QURDRRNTEN 

FESTLEGEN 

1520 

R$«**<E>** 



1530 

Z1=S1 



1540 

Z2*S2 



1550 

GOSUB 4870 



1560 

IF K3<1 THEN 1670 



1570 

FOR 1*1 TO K3 




Quadranten 
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1580 GOSUB 4780 
1590 AS-'*+K+" 

1600 Z1*R1 

1610 Z2*R2 

1620 GOSUB 4870 

1630 Kd. 2)-R2 

1640 Kd. n-Rl 

1650 Kd. 3)»S9«( .5+RND(0) D 

1660 NEXT 

1670 IF B3<1 THEN 1750 

1680 GOSUB 4780 

1690 R$-''>B<- 

1700 Zl-Rl 

1710 B4-R1 

1720 Z2-R2 

1730 B5-R2 

1740 GOSUB 4870 

1750 FOR I-l TO S3 

1760 GOSUB 4780 

1770 RS-" * " 

1780 Zl-Rl 
1790 Z2-R2 
1800 GOSUB 4870 
1810 NEXT 
1820 GOSUB 5460 

1830 IF S+E>10 THEN IF E>10 OR D(7)-0 THEN 1870 
1840 PRINT 

1850 PRINT" SCHWERER FEHLER " 

1860 GOTO 4640 

1870 INPUT"Befehl "jRS 

1880 FOR I-l TO 9 

1890 IF LEFT$(RS. 3)OhlDSCR1S. 3«I-2. 3)THEN 1910 

1900 ON I GOTO 2030. 1820. 3190. 3410. 3790. 4480. 6530. 7280 

1910 NEXT 

1920 PRINT 

1930 PRINT"FOLGENDE EINGABEN SIND MOEGLICH" 


1940 

PRINT" 

NRV 

*> 

BEWEGEN" 

1950 

PRINT" 

NRT 

-> 

NAHABTASTER" 

1960 

PRINT" 

FAT 

■ > 

FERNABTASTER" 

1970 

PRINT" 

PHA 

■ > 

PHASER" 

1980 

PRINT" 

TOR 

■ > 

TORPEDO" 

1990 

PRINT" 

SCH 

-> 

SCHUTZSCHIRME" 

2000 

PRINT" 

ZER 

-> 

SCHADENSMELDUNG 

2010 

PRINT" 

COM 

-> 

COMPUTERANFRAGE' 


2020 GOTO 1830 
2030 ' FLUGKONTROLLE 
2040 INPUT"Richtung "jCl 
2050 IF CI-9 THEN Cl-1 



2060 IF C1<1 OR Cl>8 THEN PRINT: PRINT" Ltn. Sulu:Falscher Kurs.Sir I" 
: GOTO 1830 
2070 X$-"8" 

2080 IF 0(1X0 THEN X$-"0.2" 

2090 PRINT"Warp Faktor (0-"jX$:")"j 
2100 INPUT W1 

2110 IF 0(1X0 RND Wl>.2 THEN 2160 
2120 IF W1>0 RND Wl<*8 THEN 2190 
2130 IF Wl-0 THEN 1830 
2140 PRINT 

2150 PRINT"Cheftechniker Scott: Warp":Wl:" ? Das schaffen unsere M 

aschinen nicht !" 

2160 PRINT"Warptriebwerke beschaedigt !" 

2170 PRINT" Maximale Beschleunigung:0.2 Warp" 

2180 GOTO 1830 
2190 N*INT(Wl)t8+.5) 

2200 IF E-N>«0 THEN 2280 
2210 PRINT 

2220 PRINT"Maschinenraum:Fuer Warp":Wl:" reicht die Energie nicht au 
s !" 

2230 IF S<N-E OR D(7X0 THEN 1830 
2240 PRINT 

2250 PRINT"Schirmkontrolle:Schilde sind mit":S 
2260 PRINT"Energieeinheiten geladen f" 

2270 GOTO 1830 

2280 * BEWEGEN k FEUERN OER KLINGONEN 

2290 FOR I«1 TO K3 

2300 IF Kd. 3)*0 THEN 2400 

2310 R$»" 

2320 Z1»K(I. n 
2330 Z2*K(I. 1) 

2340 GOSUB 4870 
2350 GOSUB 4780 
2360 K(I. n»Zl 
2370 Kd. 2)*Z2 
2380 R$*"-»-K+" 

2390 GOSUB 4870 
2400 NEXT 
2410 GOSUB 6330 
2420 Dl-0 
2430 D6«W1 

2440 IF Wl>-1 THEN D6-1 
2450 FOR I-l TO 8 
2460 IF D(I)>-0 THEN 2510 
2470 D(n*D(n+D6 

2480 IF D(n>-.1 RND DdXO THEN D(I)*-.l: GOTO 2510 
2490 IF DdXO THEN 2510 

2500 IF D(IX>1 THEN Dl*l: R1*I: GOSUB 6060: PRINT"Schadensmeldüng:":G 
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2$;" repariert” 

2510 NEXT 

2520 IF RND(0)>,2 THEN 2640 
2530 R1-RNDC8) 

2540 IF RND(0)>».6 THEN 2600 
2550 D(Rl)-D(Rn-( RND(5)) 

2560 PRINT^Schadensmeldung: 

2570 GOSUB 6060 

2580 PRINT G2$:” beschaedigt” 

2590 GOTO 2690 

2600 D(Rn«D(Rl)+RND(3) 

2610 PRINT”Schadens«eldung: 

2620 GOSUB 6060 

2630 PRINT” reparieren schreitet voran” 

2640 ' ENTERPRISE WIRD BEWEGT 
2650 R$-” 

2660 21-INT(S1) 

2670 22-INT(S2) 

2680 GOSUB 4870 

2690 X1-C(C1. n + CC(Cl + l. n-C(Cl, ni^fCCl-INTCCD) 

2700 X*S1 
2710 Y*S2 

2720 X2*C(C1, 2) + (C(Cl + l. 2)-'CCCl. 2) D C 1 - INTC C 1) ) 

2730 Q4-Q1 
2740 Q5*Q2 
2750 FOR 1*1 TO N 
2760 Sl-Sl+Xl 
2770 S2*S2+X2 

2780 IF S1<1 OR Sl>«9 OR S2<1 OR S2>*9 THEN 3000 

2790 S8-INT(SnJf24+INT(S2Di(3-26 

2800 IF MIDSCQS, S8, 2)*” ” THEN 2850 

2810 S1*INT(S1-Xn 

2820 S2*INT(S2-X2) 

2830 PRINT”Warptriebwerke schalteten sich wegen schlechter Navigati 
on in Sektor ”:S1;”.”;S2:” ab” 

2840 GOTO 2880 
2850 NEXT 
2860 Sl*INTCSn 
2870 S2-INT(S2) 

2880 A$-”<E>” 

2890 Zl-INT(Sl) 

2900 Z2*INTCS2) 

2910 GOSUB 4870 
2920 GOSUB 6240 
2930 T8*l 

2940 IF W1<1 THEN T8«. UtlNTCWlÄlO) 

2950 T-T+T8 

2960 IF T>T0+T9 THEN 4640 

2970 * IST ENTERPRISE RNGEDOCKT ? 

2980 GOTO 1820 
2990 ' 
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3000 X-8*Q1+X+N*X1 
3010 Y»8#Q2+Y+N»X2 
3020 Ql-INTCX/8) 

3030 Q2-INT(Y/8) 

3040 S1»INT(X-Q1»8) 

3050 S2*INTCY-Q2#8) 

3060 IF Sl«0 THEN Q1»Q1-1: Sl«8 
3070 IF S2»0 THEN Q2-Q2-1: S2»8 
3080 X5«0 

3090 IF Q1<1 THEN X5-1: Ql*l: Sl-1 
3100 IF Ql>8 THEN X5-1: Ql»8: Sl»8 
3110 IF Q2<1 THEN X5-1: Q2-1: S2-1 
3120 IF Q2>8 THEN X5*l: Q2«8: S2*8 

3130 IF X5O0 THEN PRINT: PRINT''Ltn. Uhura: Es ist uns verboten,die 
Galaxis zu verlassen.Die Triebwerke sollen abgestellt werden !": 

PRINT'^Chef techniker Scott:Tr iebwerke gestoppt'' 

3135 PRINT" Cpt. Chekov: Wir sind im Sektor":Sl:"jS2j"des Quadranten 
"j 

3140 IF T>T0+T9 THEN 4640 

3150 IF 8i(01+Q2»8ÄQ4+Q5 THEN 2880 

3160 T»T+1 

3170 GOSUB 6240 

3^1:80 GOTO 1120 

3190 ' FERNRRDAR 

3200 ' 

3210 IF D(3)<0 THEN PRINT"Fernradar faellt aus": GOTO 1830 
3220 PRINT"Fernradar Auswertung fuer 
QuadrantQl:":Q2 

3230 01$»"-" 

3240 PRINT 01$ 

3250 FOR I»Q1-1 TO Ql+1 

3260 NCn»-l 

3270 NC2)»-2 

3280 NC3)--3 

3290 FOR 3-Q2-1 TO Q2+1 

3300 IF I>0 AND I<9 AND 3>0 AND 3<9 THEN NC3-Q2+2)»G(I, 3): Z(I, a)»G( 
I, 0) 

3310 NEXT 

3320 FOR L»1 TO 3 

3330 PRINT": "; 

3340 IF NCLXO THEN PRINTSTRING$ C 3,195) ; " GOTO 3360 

3350 PRINT RIGHT$(STR$(N(L)+1000), 3):" 

3360 NEXT 
3370 PRINT":" 

3380 PRINT 01$ 

3390 NEXT 

3400 GOTO 1830 

3410 ' PHASER KONTROLLE 

3420 ' 

3430 IF DC4)<0 THEN PRINT"Phaser sind inaktiv": GOTO 1830 


14 




3440 IF K3<0 THEN PRINT''I0 SpocK:Sensoren zeigen keine Klingonen in di 
esem Quadranten**: GOTO 1830 

3450 IF DC8)<0 THEN PRINT**Fehl er in Feuer l ei tconput er ** 

3460 PRINT**Pha5er in Ziel** 

3470 PRINT**Ver fuegbare Energie :**: E : ** Einheiten** 

3480 INPUT**Schu55energie **;X 
3490 IF X<»0 THEN 1830 
3500 IF E-X<0 THEN 3470 
3510 E-E-X 

3520 IF DC7)<0 THEN X»XMRNDC0) 

3530 H1*INT(X/K3) 

3540 FOR I-l TO 3 

3550 IF K(I, 3)<»0 THEN 3760 

3560 H*INTC(Hl/SQRC(KCl. 1)-S1)R2+(KCI. 2)”S2DR2D)»( RND(0)+2)) 

3570 IF H>.15i(KCI, 3DTHEN 3600 

3580 PRINT**Sensoren zeigen keinen Treffer** 

3590 GOTO 3760 

3600 KCl. 3)*KCI. 3)-H 

3610 PRINT H:** Einheiten trafen Klingonen in**: PRINT**Sekt or **: KC1. 1);**. 
**:KCI. 2) 

3620 IF KCl. 3)<«0 THEN PRINT** KLINGONE ZERSTOERT *M^f**: GOTO 36 

60 

3630 PRINT** (Sensoren zeigen**;KC 1. 3) 

3640 PRINT** verbleibende Einheiten)** 

3650 GOTO 3760 
3660 K3-K3-1 
3670 K9-K9-1 
3680 Z1«KCI. 1) 

3690 Z2*K(I. 2) 

3700 R$-** 

3710 GOSUB 4870 
3720 KCl. 3)»0 

3730 GCQl. Q2)«GCQ1. Q2)>100 
3740 ZCQl. Q2)*GCQ1. Q2) 

3750 IF K9<*0 THEN 7830 
3760 NEXT 
3770 GOSUB 6330 
3780 GOTO 1830 

3790 * PHOTONENTORPEDO KONTROLLE 
3800 * 

3810 IF P<-0 THEN PRINT**Keine Torpedos mehr verfuegbar**: GOTO 1830 
3820 IF DC5)<0 THEN PRINT**Rgschusseinrichtung ausser Funktion**: GOTO 1 
830 

3830 INPUT**Torpedokurs (1-9) **;C1 
3840 IF Cl-9 THEN Cl*l 

3850 IF C1<1 OR Cl>9 THEN PRINT**Chekov: Fa l sehe Kursdat en. Si r ! **: GOTQ 1 
830 

3860 X1*CCC1. 1)+(CCC1 + 1. 1)-C ( C 1 . ’ 1 ) ) i(( C 1 • INTC C 1 ) ) 
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3870 E*E-2 
3880 P»P-1 

3890 X2»C(C1. 2D+CCCC1+1, 2)-CCCl. 2))*CC1-INTCC1)D 
3900 X»S1 
3910 Y-S2 

3920 PRINT*'Torpedo fliegt" 

3930 X«X+X1 
3940 Y*Y+X2 
3950 X3-INTCX+.5D 
3960 Y3-INTCY+.5) 

3970 IF X3<1 OR X3>8 OR Y3<1 OR Y3>8 THEN 4450 
3980 PRINT" ":X3;",":Y3 

3990 R$-" 

4000 Z1*X 

4010 Z2»Y 

4020 GOSUB 5390 

4030 IF Z3O0 THEN 3930 

4040 R$»"+K+" 

4050 Zl-X 

4060 Z2-Y 

4070 GOSUB 5390 

4080 IF Z3*0 THEN 4190 

4090 PRINT"»i<» Hlingone zerstoert 

4100 K3-K3-1 

4110 K9-K9-1 

4120 IF K9<»0 THEN 7830 

4130 FOR 1*1 TO 3 

4140 IF X3*KCI, DRND Y3*KCI. 2)THEN 4170 

4150 NEXT 

4160 1*3 

4170 KCI, 3)*0 

4180 GOTO 4370 

4190 RS»" » " 

4200 Z1«X 
4210 Z2«Y 
4220 GOSUB 5390 

4230 IF Z3O0 THEN PRINT"Stern bei";X3j",";Y3j" absorbierte Torpedo": 
GOSUB 6330: GOTO 1830 
4240 R$»">B<" 

4250 Z1»X 

4260 Z2«Y 

4270 GOSUB 5390 

4280 IF Z3»0 THEN 3820 

4290 PRINT"*J(* Sternenbasis zerstoert 

4300 B3*B3-1 

4310 B9-B9-1 

4320 IF B9>0 OR K9>T-T0-T9 THEN 4350 
4330 PRINT"Das wars.Kapitaen!!!" 

4340 PRINT"Du bist hiermit Deines Komandos entzogenund zu 99 Sternenta 
gen Strafarbeit auf Cygnus 12 verdonnert !!!" 

4350 PRINT"Das Flottenkoamando sammelt Rnklage- punkte gegen Dich" 
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4360 D0*0 
4370 Z1«X 
4380 Z2»Y 
4390 AS»'* 

4400 GOSUB 4870 

4410 GCQl. Q2)»K3Jfl00+B3*10+S3 
4420 ZCQl* Q2)»G(Q1. Q2) 

4430 GOSUB 6330 
4440 GOTO 1830 

4450 PRINT"Torpedo ging am Ziel vorbei" 

4460 GOSUB 6330 

4470 GOTO 1830 

4480 ' SCHIRMKONTROLLE 

4490 IF 0(7X0 THEN PRINT"Schlrmkontrolle ausgefallen": GOTO 1830 

4500 PRINT"Verfuegbare EnergieE+S 

4510 INPUT"Wleviel Energie in die Schirme "jX 

4520 IF X<0 OR S»X THEN PRINT"<Schirme unveraendert>": GOTO 1830 
4530 IF X>E+S THEN PRINT"Schlrmkontrolle:Wir sind nicht die Schat 

zkammer der FoederatIon": PRINT" <Schirme unveraendert>": GOTO 1830 
4540 E»E+S-X 
4550 S»X 

4560 PRINT"Deflektorraum:SchiIde jetzt auf" 

4570 PRINT INTCS):" Einheiten" 

4580 GOTO 1830 

4590 ' ENDE DES SPIELS 

4600 CLS 

4610 IF T>T0+T9 THEN PRINT"Deine Zeit ist ueberschritten.das Haupt-qua 
rtier ist verloren und mit ihm die Galaxis.Du Niete !!!!!": END 
4620 PRINT"Heute ist der Sternentag"jT 
4630 GOTO 4680 
4640 PRINT 

4650 PRINT" DIE ENTERPRISE IST ZERSTOERT" 

4660 PRINT" DIE FOEDERATION IST VERLOREN" 

4670 GOTO 4620 

4680 IF K9>1 THEN PRINT"Schade,es waren noch";K9;" Kl Ingonische": PRIN 
T"Schlachtschiffe uebrig" ELSE PRINT"So ein Mist.haettest Du das letzt 
e": PRINT"Schiff doch noch erwischt,Pech!" 

4690 PRINT"Das ist das Ende Deiner Mission !" 

4700 PRINT 
4710 PRINT 

4720 IF B9«0 THEN END 

4730 PRINT"Dle Foederation braucht einen neuen Kommandanten.also F 

reiwl 11 ige vor MM!" 

4740 PRINT 

4750 INPUT"Tritt heran und tippe 'AYE* ".‘AS 
4760 IF A$»"AYE" THEN RUN 
4770 END 

4780 ' LEEREN PLATZ IM QUADRANTEN FINDEN 
4790 R1»RND(8) 
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4800 R2-RND(8D 
4810 R$»" 

4820 Z1*R1 

4830 Z2»R2 

4840 GOSUB 5390 

4850 IF Z3»0 THEN 4790 

4860 RETURN 

4870 ' 

4880 S8-INT(Z2-.5)*3+INT(Zl- .5)^f24+l 
4890 IF LEN(R$)<>3 THEN PRINT'TEHLER'': STOP 
4900 IF S8*l THEN Q$*RS+RIGHT$(Q$, 189): RETURN 
4910 IF S8-190 THEN Q$-LEFT$CQS, 189)+RS: RETURN 
4920 Q$-LEFT$(Q$, S8-1)+R$+RIGHTS(Q$, 190-S8) 

4930 RETURN 

4940 ' NAME DES GEBIETS BESTIMMEN 

4950 IF Z5<»4 THEN ON Z4 GOTO 4970, 4990, 5010. 5030. 5050, 5070, 
. 5110 

4960 GOTO 5130 
4970 G2$-''Antares'' 

4980 GOTO 5120 
4990 G2$-"Riger' 

5000 GOTO 5120 
5010 G2$**'Procyon" 

5020 GOTO 5120 
5030 G2S*''Wega" 

5040 GOTO 5120 
5050 G2$*'Xanopus*' 

5060 GOTO 5120 
5070 G2$-''Al tair** 

5080 GOTO 5120 

5090 G2$*''Sagittarius" 

5100 GOTO 5120 
5110 G2S»^Pollux" 

5120 GOTO 5290 

5130 ON 24 GOTO 5140, 5160. 5180. 5200. 5220. 5240. 5260. 5280 
5140 G2$*"Sirius" 

5150 GOTO 5290 
5160 G2$»''Deneb" 

5170 GOTO 5290 
5180 G2$*'Xapel la" 

5190 GOTO 5290 

5200 G25»'*Beteigeuze" 

5210 GOTO 5290 
5220 G2$*"Aldebaran*' 

5230 GOTO 5290 
5240 G2$*''Regulus" 

5250 GOTO 5290 
5260 G2$»"Arcterus" 


5090 
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5270 GOTO 5230 

5280 G2S*"Spica" 

5290 IF G501 THEN ON 25 GOTO 5310, 5330, 5350, 5370, 5310, 5330, 5350 

, 5370 

5300 RETURN 

5310 G2$»G2S + '' I" 

5320 RETURN 

5330 G2$*G2$ + '' II" 

5340 RETURN 

5350 G2$«G2$+" III" 

5360 RETURN 

5370 G2$-G2$-»'" IV" 

5380 RETURN 
5390 Zl-INT(21+.5) 

5400 Z2*INT(Z2+.5) 

5410 S8-CZ2-n^(3+C21-l)Jf24+l 
5420 Z3-0 

5430 IF MID$(Q$, S8, 3)ORSTHEN RETURN 
5440 Z3-1 
5450 RETURN 

5460 ' RNFRNGSBILD UND NAHABTRSTER 
5470 ' 

5480 FOR I*S1-1 TO SH-l 
5490 FOR 3*52-1 TO S2+1 

5500 IF INT(I+.5)<1 OR INTCI+.5)>8 OR INT(3+.5)<1 OR INTC3+.5)>8 THEN 
5560 

5510 AS-">B<" 

5520 21-1 

5530 22-3 

5540 GOSUB 5390 

5550 IF 23-1 THEN 5600 

5560 NEXT 

5570 NEXT 

5580 DO-0 

5590 GOTO 5670 

5600 DO-1 

5610 C$*"DOCK" 

5620 E-EO 
5630 P-PO 

5640 PRINT"Schirme werden fuers andocKen abgebaut" 

5650 S-0 
5660 GOTO 5700 

5670 IF K3>0 THEN C$-"«ROT*": GOTO 5700 
5680 C$»"GRUEN" 

5690 IF E<EOM.l THEN C$-"GELB " 

5700 IF DC2)>*0 THEN 5750 
5710 PRINT 

5720 PRINT"iH(» keine Nahabtastung «oeglich 
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5730 PRINT 
5740 RETURN 

5750 01 $*CHR$C223)+STRING$( 16.21 n+CHRS(227) 

5760 02S-CHRi(227)+STRING$(16.218)+CHR$(223) 

5770 PRINT 01$ 

5780 FOR I-l TO 8 
5790 PRINTCHR$(207); 

5800 FOR a-(I-l)*24+l T0CI-n«24+22 STEP 3 
5810 PRINT^ ";MID$(Q$. 3+1. 1); 

5820 NEXT 

5830 ON I GOTO 5840. 5860. 5920. 5940. 5960. 5980. 6000. 6020 
5840 PRINTCHR$C219) Sternentag”; INTCT»10). 1 

5850 GOTO 6030 

5860 PRINTCHR$(219)j" Condition 

5870 IF C$*"»ROT*" THEN COLOUR 3:G0T05890 

5880 COLOUR 2 

5890 PRINT CS 

5900 COLOUR 16 

5910 GOTO 6030 


5920 

5930 

PRINTCHR$(219):" 

GOTO 6030 

Quadrant 

";Q1;"."jQ2 

5940 

5950 

PRINTCHR$(219)j" 

GOTO 6030 

Sektor 

"jSl;"."jS2 

5960 

5970 

PRINTCHR$(219)j" 

GOTO 6030 

Torpedos 

":INTCP) 

5980 

5990 

PRINTCHR$(219)j" 

GOTO 6030 

Energie 

":INT(E+S) 

6000 

6010 

PRINTCHR$(219)j" 

GOTO 6030 

Schirme 

"jINT(S) 

6020 

PRINTCHR$C219);" 

Klingonen 

"jINT(K9) 


6030 NEXT 
6040 PRINT 02$ 

6050 RETURN 

6060 ' WAS WURDE 2ERST0ERT 

6070 ON RI GOTO 6080. 6100. 6120. 6140. 6160. 6180. 6200. 6220 
6080 G2$*"Warp Triebwerk*' 

6090 RETURN 

6100 G2$»"Nahabtaster" 

6110 RETURN 

6120 G2$*"Fernabtaster" 

6130 RETURN 

6140 G2$»"Phaserkontrolle" 

6150 RETURN 

6160 G2$*"Photonenroehren" 

6170 RETURN 

6180 62$*"Schadenskontrolle" 

6190 RETURN 

6200 G2$»"Schirmkontrolle" 
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6210 RETURN 

6220 G2$*'"Computer'' 

6230 RETURN 

6240 ' ENERGIEVERBRAUCH 
6250 ' 

6260 E*E-N-10 

6270 IF E>*0 THEN RETURN 

6280 PRINT"Zum beenden des Maneuvers muss Schirm- energie abgezogen m 
erden !" 

6290 S*S-fE 
6300 E-0 

6310 IF S<-0 THEN S*0 
6320 RETURN 

6330 ' KL INGONEN FEUERN 
6340 IF K3<-0 THEN RETURN 

6350 IF DOOO THEN PRINT"Schllde der Sternenbasis schuetzten Enter 

prlse": RETURN 

6360 FOR 1*1 TO 3 

6370 IF K(I. 3)<»0 THEN 6510 

6380 H-INT((KCI. 3)/SQRC(K(I, n-SnR2+(K(I. 2)-S2) Ä2) ) «( 2+RND( 0) ) ) 
6390 S»S-H 

6400 K(K 3)*K(I, 3)/(3-»-RND( 0) ) 

6410 PRINT H;" Einheiten trafen Enterprise vom " 

6420 PRINT''SeKtor''jK(I. nj'',''jK(I, 2) 

6430 IF S<»0 THEN 4590 

6440 PRINT"<Schllde auf"jSj'' Einheiten gesunken)" 

6450 IF H<20 THEN 6510 

6460 IF RNDC0D>.6 OR H/S<*,02 THEN 6510 
6470 R1-RNDC8) 

6480 D(Rn*D(Rn-H/S- .5»RND(0) 

6490 GOSUB 6060 

6500 PRINT"Schadensmeldung: ";G2S;" zerstoert" 

6510 NEXT 
6520 RETURN 

6530 ' SCHADENSMELDUNG 
6540 IF D(6)>*0 THEN 6730 

6550 PRINT"Schadensmeldüng ausser Funktion" 

6560 IF D0*0 THEN 1830 

6570 D3*0 

6580 FOR 1*1 TO 8 

6590 IF DCIXO THEN D3-D3+.1 

6600 NEXT 

6610 IF D3-0 THEN 1830 

6620 PRINT 

6630 D3»D3+D4 

6640 IF D3>-1 THEN D3*.9 

6650 PRINT"Techniker stehen bereit,um die Schaeden zu beheben" 

6660 PRINT"Vorgesehene Zelt:"j.01«INT(100MD3);" Sternentage" 
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6670 INPUT"Erlaubst Du die Reparatur CJ/N) ":R$ 

6680 IF THEN 1830 

6690 FOR I-l TO 8 

6700 IF DCIXO THEN DCD-O 

6710 NEXT 

6720 T*T+D3+.l 

6730 PRINT 

6740 PRINT 

6750 PRINT" Objekt Reparaturstadiuw" 

6760 FOR Rl-1 TO 8 
6770 GOSUB 6060 

6780 PRINT G2$: LEFTSCZS. 30-LEN(G2$) ) : INTCD(RI)JflOO).01 
6790 NEXT RI 
6800 PRINT 

6810 IF DOOO THEN 6570 
6820 GOTO 1830 
6830 * PHOTONENTORPDRTEN 
6840 * 

6850 IF K3<»0 THEN PRINT"Keine Klingonen in ReichMeite !": 
6860 IF K3-1 THEN X$*" 2 ua" ELSE X$»"zu den" 

6870 PRINT"Von der Enterprise ";X$;" Klingonen" 

6880 H8-0 

6890 FOR 1*1 TO 3 

6900 IF KCl, 3)<-0 THEN 7220 

6910 W1*K(I. 1) 

6920 X-KCI, 2) 

6930 Cl-Sl 
6940 R«S2 
6950 GOTO 7010 

6960 PRINT"Entfernungsbestimaung:" 

6970 PRINT"Du bist in Quadrant":QljQ2:PRINT" 
1 :","jS 2!PRINT" Gebe ein 
6980 * 

6990 INPUT"Rnfangskoordinate (X,Y) "jCl, R 

7000 INPUT" Endkoordinate CX,Y) ";W1, X 

7010 X»X-R 

7020 R*C1-W1 

7030 IF X<0 THEN 7130 

7040 IF R<0 THEN 7150 

7050 IF X>0 THEN 7070 

7060 IF R*0 THEN CI»5: GOTO 7080 

7070 Cl*l 

7080 IF RBS(R)<*RBS(X)THEN 7110 

7090 PRINT"Richtung:"iCl+C(( RBSCA)-RBS(X))+RBS(R))/RBS(R)) 
7100 GOTO 7200 

7110 PRINT"Richtung:" jC1+( ABSCA)/ABSCX)) 

7120 GOTO 7200 

7130 IF A>0 THEN Cl-3: GOTO 7160 
7140 IF XOO THEN Cl*5: GOTO 7080 


GOTO 1830 


Sektoren";S 
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7150 Cl*7 

7160 IF ABS(A)>*ABS(X)THEN 7190 

7170 PRINT''Richtung:'';Cl + ((( ABSCX)-RBS(R) )+RBS(X))/RBS(X) ) 

7180 GOTO 7200 

7190 PRINT"Richtung:''jCl-»'( RBSCX)/RBSCA)) 

7200 PRINT^Distanz :";SQRCXÄ2+AÄ2) 

7210 IF H8«l THEN 1830 

7220 NEXT 

7230 GOTO 1830 

7240 ' KURS ZUR BASIS 

7250 IF B3O0 THEN PRINT^Von der Enterprise zur Basis:": W1«B4: 
GOTO 6930 

7260 PRINT"Mr.SpocK:Die Sensoren zeigen keine Basis" 

7270 GOTO 1830 

7280 ' BUECHEREICOMPUTER 

7290 IF 0(8X0 THEN PRINT"Co»puter inaktiv !": GOTO 1830 

7300 INPUT"Computer ist bereit und wartet auf Eingabe "jA 

7310 IF A<0 THEN 1830 

7320 PRINT 

7330 H8*l 

7340 ON A+1 GOTO 7450. 7730. 6830. 7240. 6960 
7350 PRINT 
7360 PRINT" 

7370 PRINT" 

7380 PRINT" 

7390 PRINT" 

7400 PRINT" 

7410 PRINT" 

7430 PRINT 
7440 GOTO 7300 
7450 PRINT 
7460 PRINT 

7470 PRINT"Computeraufzeichnung der Galaxis ";Qlj".";Q2 
7480 PRINT 

7490 PRINT" 1 2 3 4 5 6 7 8" 

7500 01$-" "+STRING$(31.217) 

7510 PRINT 01$ 

7520 FOR I-l TO 8 
7530 PRINT I; 

7540 IF H8-0 THEN 7590 
7550 FOR 3-1 TO 8 
7560 PRINT" K': 

7570 IF ZCI. 3)-0 THEN PRINTSTRING$(3.127):: GOTO 7590 
7580 PRINT RIGHT$(STR$(Z( I . 3)-»-1000) . 3); 

7590 NEXT 

7600 PRINTCHR$(225); 

7610 GOTO 7690 
7620 Z4-I 
7630 Z5-1 

7640 30-INT(15-.5»LENCG2$)) 

7650 PRINT TABCaO); G2$; 


Abrufbare Funktionen :" 

0-Karte aller Abtastungen" 

1- Status Report" 

2- Photonentorpedodaten" 

3- Entfernung zur Basis" 

4- Ent fernungsberechnung" 


X-B5 
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7660 Z5»5 

7670 aO-INT(39-.5JtLEN(G2$) ) 

7680 PRINT TABCJODj Q2$; 

7690 PRINT 

7700 PRINT OIS 

7710 NEXT 

7720 GOTO 1830 

7730 ' STRTUS REPORT 

7740 PRINT 

7750 PRINT'* Status Report:** 

7760 IF K9>1 THEN X$-**en** ELSE XS«**** 

7770 PRINT**Noch**:K9;** Kl Ingon**: X$ : ** uebrig** 

7780 PRINT**Die Mission muss in**: . 1»INT( CT9+T0-T)*10) j** Sternentagen** 
7790 PRINT**beendet werden** 

7800 IF B9>1 OR B9*0 THEN X$***basen** ELSE X$«**basis** 

7810 PRINT**Es gibt**;B9;** Sternen**jX$ 

7820 GOTO 6530 
7830 * GEWONNEN 
7840 PRINT 
7850 PRINT 
7860 PRINT 

7870 PRINT** DU HAST ALLE KLINGONEN VERNICHTET** 

7880 PRINT**Dir gebuehrt der Dank der gesamten Milchstrasse!** 

7890 PRINT**Dle Foederation ernennt Dich zum** 

7900 PRINT** ADMIRAL** 

7910 PRINT**und gibt Dir das Kommando ueber die**:RND( 10) : **Raumf lot te.da 
mit Du auch weiterhin Klin-gonen jagst !** 

7920 IF INKEVS «**** THEN 7920 
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Run to Morlock*s Tower 


Ruf den folgenden Seiten finden Sie das Listing eines 
Abenteuerspiels, bei de« Sie durch Verhandeln, Kämpfen, 
Forschen u.s.w. versuchen sollen, das Endziel (Eroberung des 
'Morlock-Towers') zu erreichen. 

I« Programmlisting finden Sie ab Progra««zeile 7150 die Spiel¬ 
anleitung. Beachten Sie, daß das eigentliche Spiel in Englisch 
abläuft - die wichtigen Begriffe werden größtenteils in der 
Anleitung erklärt, i« schlimmsten Fall müssen Sie halt mal 
ein Wörterbuch zur Hand nehmen. 

Für dieses Programm muß Ihr Colour-Genie mit 32K RAM aus¬ 
gerüstet sein. 

Programmlisting: 


10 C0L0UR16 
20 GOSUß 8160 
30 CLS 

40 PRINT 9 400,**BRAUCHEN SIE EINE ANLEITUNG C O/N) ?" ; CHRS ( 14 D ; 
50 A$«INKEYS 
60 IFAS*"'N" THEN 80 

70 IFAS«"a" THEN GOTO 7150ELSE GOTO 50 
80 CLEAR 132:PRINTCHRSC15) 

90 DIM D$C9), 0S(17), DC32, 4), 0(17, 6) 

100 CLS 
110 QOSUB 150 
120 GOSUB 8800 
130 GOSUB 7040 
140 GOTO 220 

150 DATA 7. 255 , 8. 16, 9. 16. 10, 16. 13, 16 

160 RESTORE 

170 FOR 1*1 TO 5 

180 READ XX, YV 

190 SOUND XX.YY 

200 NEXT 

210 RETURN 

220 IF INKEYS *'''' THEN GOTO 220 
230 CLS 
240 C*17408 

250 0C17, 1)*RND(155)+100 
260 SP-RNDC6) 

270 ST*RNDC10) 

280 CH*RND(6) 

290 M*10 

300 MC*6 

310 PL-880 

320 L-40 

330 BQ-223 

340 Sl»223 

350 DS*'*want to'' 

360 WS-"which item?" 

370 ES*"don't have any!" 

380 HS»"how many?" 

390 MS»''don't have that many!" 

400 YS*"you're wasting my time!" 
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410 R$*"thev attacked anyway!'* 

420 DRTA67 CASTLE.82 RUIN.99 CAVE.84 TOWER.107 CITY.80 PILGRIMS.87 WIZ 
ARDS.79 0GRES.83 SOLDIERS 

430 DATASIEGE TOWERS.SMALL BOAT.GRAPPLING HOOKS.OIL LAMPS.AXES.SHOVELS 
.ROPE.LEATHER OERKINS.CHAIN MAIL.PLATE ARMOR.SHlELDS.BROAD SWORDS.LONG 
BOWS.CROSSBOWS.RATIONS.LARGE KEY.GOLD COINS 
440 DATA 1500. 2500..150. 255..15. 30..5. 20..10. 30..10. 20..15. 25.. 

15. 40. 2. 25. 60. 4. 50. 100. 8. 3. 20. 2. 10. 50. 5. 11. 50. 5. 18. 

40. 4. 4. 15..1. 5...25. 1. 

450 FOR 1*1 TO 9 
460 READ D$Cn 
470 NEXT 

480 FOR 1*1 TO 17 
490 READ OSCn 
500 NEXT 

510 FOR 1*1 TO 17 

520 FOR 0*2 TO 4 

530 READ 0(1. 0) 

540 NEXT 0. I 

550 DATA 67. 84. 99. 82. 67. 84. 99. 82. 67. 84. 99, 82, 67. 84. 99. 8 
2. 67. 94, 99. 82. 67. 94. 99. 82. 80. 80. 87, 79. 83. 83 
560 CLS 

570 PRINT 9 216.''please wait*' 

580 COLOUR 6 

590 PRINT 9 256.STRING$(11.2in 

600 COLOUR 16 

610 DCl. 1)*107 

620 D(2. n*107 

630 DCl. 2)*RND(6) 

640 D(2. 2)*RNDC6)+8 
650 DCl. 3)*RNDC30)+1 
660 DC2. 3)*RNDC30)+1 
670 FOR 1*3 TO 32 
680 DCl. 4)*1 
690 READ DCl. 1) 

700 DCl. 2)-RNDC14) 

710 DCl. 3)*RNDC30)+1 
720 IF DCl. 2)*8 THEN 700 
730 FOR 0*1 TO I 

740 IF DCl. 2)*DC0. 2)THEN IF DCl. 3)*DC0. 3)THEN IF 0<>I THEN 700 
750 NEXT 0. I 
760 FOR 1*8 TO 14 

770 IF RNDC10)>5 THEN OCI. n*RND(8) 

780 NEXT 

790 0(15. n*RNDC25) + 15 
800 A*RND(7) 

810 B*RNDC32) 

820 SL*RNDC384)+17500 

830 GOSUB 6610 

840 N*C+B+AifL 

850 Fl*l 

860 GOSUB 2150 

870 GOSUB 3580 

880 GOSUB 3360 

890 GOSUB 150 

900 EG*EG+1 

910 IF DF THEN 1030 

920 Q*1 

930 Fl*l 

940 GOSUB 2150 

950 GOSUB 3580 
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960 IF TW<»M*100 THEN 1030 
970 GOSUB 7020 

980 PRINT 6 PL,''carrlng to «uch!"; 

990 GOSUB 6930 
1000 GOSUB 2090 
1010 GOSUB 6610 
1020 GOTO 880 
1030 GOSUB 7020 
1040 COLOUR 2 

1050 PRINT ft PL,''what now SIRE?'^ 

1060 COLOUR 16 
1070 RS*"IUNSEW" 

1080 GOSUB 1940 

1090 IF Q»0 THEN 1080 

1100 ON Q GOSUB 2090. 2660 

1110 IF Q-1 OR Q«2 THEN GOSUB 6610 

1120 IF Q-5 RND B<40 THEN B*B+1 

1130 IF Q-4 RND R<15 THEN R«R+1 

1140 IF Q»6 RND B>0 THEN B»B-1 

1150 IF Q*3 RND R>0 THEN R»R-1 

1160 IF R08 OR 0(2. 1)>0 THEN 1230 

1170 GOSUB 7020 

1180 PRINT ft PL.^VOUR MEN CRN'T SWIMr*; 

1190 GOSUB 6930 
1200 R*R-1 

1210 IF Q*3 THEN R»R-»'2 

1220 GOTO 880 

1230 F-F+1 

1240 P-0(15. n-M/2 

1250 IF F<10 THEN 1300 

1260 F-0 

1270 0C15. n-p 

1280 IF P<M THEN GOSUB 7020: PRINT ft PL.'TOOD LOWr'j: GOSUB 6930:IF OC 
15. 1X0 THEN 0C15. 1)«0 

1290 IF P<M/2 THEN P*RND(M/3) : GOSUB 7020: PRINT ft PL. P''men diedr^: 

M*M-P: GOSUB 6930 

1300 MC*MC+1 

1310 FOR 1*1 TO 32 

1320 IF R*DCI. 2)THEN IF B*D(I. 3)THEN POKE N. S1: GOTO 3640 

1330 NEXT 

1340 POKE N. S1 

1350 N»C+R»L+B 

1360 IF PEEKCND0131 THEN Sl-PEEK(N) 

1370 DF-0 
1380 SWF*0 
1390 MF*0 
1400 GOSUB 7020 

1410 PRINT ft PL.^vou are in the 
1420 B$-"wildernes5" 

1430 IF R*8 THEN BS»*Viver" 

1440 IF B>18 THEN IF R<8 THEN BS»''mountains'': MF»1: F»F+.5 
1450 IF Sl*130 THEN B$-"swamp": SWF»1 

1460 IF Sl*135 THEN PRINT^'shadow of":: GOSUB 6960: PRINT ft PL."the dre 
aded morlocK's tower!": GOSUB 6960: GOTO 3390 
1470 GOSUB 150 
1480 ' 

1490 FOR 3*0 TO 95 
1500 GOSUB 150 
1510 ' 

1520 FOR 3*0 TO 140 



1530 GOSUB 150 
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fl9 


1540 

1550 PRINT B$; 

1560 POKE N, 131 
1570 GOSUB 6770 
1580 BT*0 

1590 FOR X-1 TO 32 

1600 IF RBSCR-D(X. 2))>2 THEN 1710 
1610 IF RBSCB-DCX. 3))>2 THEN 1710 
1620 IF OCX. 4)-l THEN OCX. 4)»0 
1630 FOR Y*1 TO 9 

1640 IF VRL(DSCY))<>D(X, DTHEN 1700 
1650 IF Y>5 THEN BT*Y 
1660 GOSUB 7020 

1670 PRINT « PL. MID$CDS(YD. 4):" rxear**: 

1680 GOSUB 6930 
1690 GOTO 1710 
1700 NEXT Y 
1710 NEXT X 

1720 IF R>12 THEN IF B>22 THEN GOSUB 7020: PRINT « PL.'XITRDEL near":: 
GOSUB 6930 

1730 IF SWF THEN IF RNDC100)<50 THEN GOSUB 7020: PRINT S PL."2 men are 
stuck in quicksand!";: M»M-2: DF*1: GOSUB 6930: GOTO 1750 
1740 IF MF RND Sl<>32 THEN IF RNDC 100X50 THEN GOSUB 7020: PRINT « PL. 
**2 men feil Into a deep ravine!":: M*M-2: DF*1: GOSUB 6930 
1750 IF BT THEN 880 
1760 BC-BC+l 
1770 IF BC<3 THEN 880 
1780 BC*0 

1790 FOR 3*23 TO 32 

1800 IF DCO. 4)*0 THEN 0(3. 4D*1: POKE C+DC3. 3)+D(3. 2)^(L. BQ 
1810 X»RND(15) 

1820 Y«RNDC40) 

1830 IF X*8 THEN 1810 
1840 FOR ZZ«1 TO 32 

1850 IF X*D(ZZ. 2)THEN IF Y»D(ZZ. 3)THEN IF 3<>ZZ THEN 1810 

1860 NEXT ZZ 

1870 0(3. 2)«X 

1880 0(3. 3)-Y 

1890 NEXT 3 

1900 IF EX>0 THEN IF RND(100)>80 THEN 3»RND(6)+22: 0(3. 2)»R: 0(3. 3)= 
B: GOTO 1300 
1910 N*C+B+RJfL 
1920 POKE N. 131 
30 GOTO 880 
1940 B$-INKEYS 


1950 Q*0 

1960 IF B$»"" THEN 1940 
1970 FOR I«1 TO LEN(AS) 

1980 IF B$*MIOS(R$. I. IDTHEN Q-I: RETURN 
1990 NEXT 
2000 RETURN 
2010 

2020 Q*0 
2030 GOSUB 7020 
2040 BS*INKEYS 

2050 IF BSO''" THEN IF RSC(B$)*13 THEN Q* VAL (RS): RETURN 
2060 IF BSO''" THEN IF ASC(BS)*8 THEN 2010 
2070 IF BSO'"' THEN AS-AS+BS: PRINT § PL. AS; 

2080 GOTO 2040 

2090 CLS:COLOUR 2 

2100 PRINT TAB( in^INVENTORY*' 
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2110 PRINT 

2120 PR INT''ITEM QURNT. WT. TOTAL" 

2130 F1*0 
2140 ZL«0 
2150 WV«0 
2160 TW«0 

2170 FOR 1*1 TO 17 

2180 IF 0(1. n-0 THEN 2260 

2190 3-0(1. n 

2200 K*0(I. 2) 

2210 TW*TW+3ifK 

2220 IF Fl-0 THEN GOSUB 2550: ZL-ZL+1:IF ZL-7 THEN GOSUB 6530: ZL-0 
2230 X-0(I. 4) 

2240 IF a>M THEN O-M 
2250 WV*WV+39^X 
2260 NEXT 

2270 IF Fl THEN RETURN 
2280 PRINT 
2290 PRINT 

2300 IF Q*3 THEN RETURN 

2310 COLOUR 2:PRINT"T0TAL WEIGHT" TW" LBS." 

2320 PRINT"vour" M" mer\ can carry" M^dOO 
2330 IF Z-5 THEN 6080 

2340 PRINT ö PL. D$" drop anything?"; 

2350 FOR W»1 TO 30 

2360 NEXT 

2370 A$»INKEYS 

2380 IF AS-"" THEN 2370 

2390 IF AS<>"V" THEN Q-1: RETURN 

2400 GOSUB 7020 

2410 PRINT ö PL. WS; 

2420 GOSUB 6960 

2430 GOSUB 2010 

2440 IF Q>17 THEN 2400 

2450 I-Q 

2460 QT-0(I. 1) 

2470 IF QT-0 THEN GOSUB 7020: PRINT 5 PL. ES;: GOSUB 6960: GOTO 2340 
2480 GOSUB 7020 
2490 PRINT « PL. HS; 

2500 GOSUB 6960 
2510 GOSUB 2010 

2520 IF Q>QT THEN PRINT § PL. MS;: GOSUB 6960: GOTO 2340 
2530 0(1. n-QT-Q 
2540 GOTO 2090 

2550 COLOUR 5:PRINT MIDS(STRS(I). 2)" "; 

2560 IF I<10 THEN PRINT" "; 

2570 PRINT OSd); TAB(18)3; TAB(23)MIDS(STRS(K). 2); TAB(27)MIDS(STRS( 
K^(3). 2) 

2580 RETURN 
2590 Z-0 
2600 BC-3 
2610 BT-0 
2620 B-B-1 

2630 IF RND(10)>5 THEN B-B+2 

2640 N-C+B+AML 

2650 RETURN 

2660 CLS 

2670 Q-3 

2680 GOSUB 2120 

2690 GOSUB 7020 

2^700 PRINT « PL. WS; 
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2710 GOSUB 6960 

2720 GOSUB 2010 

2730 IF Q>17 THEN 2660 

2740 I»Q 

2750 P=OCI. 1) 

2760 IF P«0 THEN GOSUB 7020: PRINT § PL, E$:: GOSUB 6960: GOTO 2820 
2770 IF(I=16 RND Z=nORCI»6 RND Z»2)0RCI=4 RND Z=3)0R(I=3 RND Z=4)THEN 
2900 

2780 IF I'^7 RND DF=1 THEN 3320 
2790 GOSUB 7020 

2800 PRINT § PL. OSCI):"' - no effect'': 

2810 GOSUB 6960 
2820 GOSUB 7020 

2830 PRINT § PL . "something eise?''; 

2840 GOSUB 6930 
2850 R$*INKEY$ 

2860 IF R$*"" THEN 2850 
2870 IF R$="Y" THEN 2660 
2880 GOSUB 6610 
2890 RETURN 
2900 GOSUB 6610 
2910 GOSUB 7020 

2920 PRINT § PL."vou're in a ";MID$(D$CZ). 4); 

2930 GOSUB 6930 

2940 0=0 

2950 GOSUB 7020 

2960 PRINT § PL."SERRCH or LERVE?"; 

2970 R$»INKEY$ 

2980 IF R$*"" THEN 2970 

2990 IF RS»"S" THEN 0=0+10: GOTO 3020 

3000 GOSUB 2590 

3010 RETURN 

3020 SF=0 

3030 IF RND(100)>90 THEN SF=Z: SU*1: Z*9: GOTO 4110 

3040 IF RNDC100)>0 THEN PRINT ö PL,"there's nothing here!";: GOSUB 693 
0: GOTO 2950 
3050 GOSUB 7020 

3060 PRINT § PL."there is a CHEST here!"; 

3070 GOSUB 6930 

3080 IF RNDC100)>90 THEN 3260 

3090 IF DCRL. 4)»-l THEN GOSUB 7020: PRINT § PL."it '5 empty!";: GOSUB 

6930: GOTO 3200 

3100 DCRL. 4)=-l 

3110 GOSUB 7020 

3120 PRINT § PL."containing"; 

3130 IF 0(16. nOR RND(100)>20 THEN 3170 
3140 PRINT" a ";0$(16); 

3150 OC 16. n = i 
3160 GOTO 3200 
3170 3*RND(500)+50 
3180 PRINT 0. 0$(17); 

3190 OC17. 1)»OC17. 1)+J 
3200 GOSUB 6960 
3210 GOSUB 7020 

3220 PRINT § PL."Better leave now"; 

3230 GOSUB 6960 
3240 Q»0 
3250 GOTO 3000 
3260 a»RND(2) 

3270 IF M>20 THEN 3«RNDC5) 

3280 GOSUB 7020 

3290 PRINT « PL."It'5 a TRRP" a"men are hilled"; 



3300 M-M-O 
3310 GOTO 3200 
3320 GOSUB 7020 

3330 IF RNDC100X80 THEN PRINT ft PL,''The rope broke-it's useless now"j 
: GOSUB 6960: 0(7, l)-0(7, 1)-1; DF-0 ELSE PRINT ft PL,"You saved them! 

GOSUB 6960: DF-0: M»M+2 
3340 GOSUB 6610 
3350 RETURN 

3360 IF M>0 THEN RETURN 

3370 PRINT ft PL." RLL YOUR MEN RRE DERO!" 

3380 END 

3390 IF TW<2400 THEN GOSUB 7020: PRINT ft PL,"Your army is not strong e 
nough":: GOSUB 6990: GOSUB 7020: PRINT ft PL."to make succes likely!";: 
GOSUB 6990 

3400 IF 0(1, n*0 THEN GOSUB 7020: PRINT ft PL."The walls are to high"; 
: GOSUB 6990: PRINT ft PL."for you to besiege the tower!":: GOSUB 6990 
3410 GOSUB 7020 
3420 PRINT ft PL, D$; 

*3430 GOSUB 6930 

3440 PRINT ft PL."Rttack or Leave?"; 

3450 R$*"LR" 

3460 GOSUB 1940 
3470 IF Q*0 THEN 3450 
3480 IF Q»2 THEN 3520 

3490 IF RND(100)>70 THEN I»RND(M/10)M-M-I: PRINT ft PL."R volley of arr 
ows";: GOSUB 6930: GOSUB 7020: PRINT ft PL."fron the tower has killed"; 
: GOSUB 6990: GOSUB 7020: PRINT ft PL. I"of your wen!";: GOSUB 6990 
3500 R-R-1 
3510 GOTO 1300 
3520 FR-1 

3530 BM*RND(40)+160 

3540 IW-20 

3550 BW-2000 

3560 SU-0 

3570 GOTO 4500 

3580 I-TW/M 

3590 FOR SP*1 TO 9 

3600 IF 10JfSP>-I THEN 3620 

3610 NEXT 

3620 SP-IO-SP 

3630 RETURN 

3640 RL-I 

3650 P*D(I. 1) 

3660 FOR Z«1 TO 9 

3670 IF P<>VRL(D$(Z)) THEN NEXT: GOTO 880 
3680 SU»0 

3690 IF Z>5 THEN 4110 
3700 GOSUB 7020 

3710 PRINT ft PL."you have cowe to a ";MIDS(D$(Z). 4); 

3720 GOSUB 6930 

3730 ON Z GOTO 3740. 3790. 3850. 3880. 3910 
3740 PRINT ft PL."the way is barred by a stout"; 

3750 GOSUB 6960 

3760 PRINT ft PL."door with an iron lock! "; 

3770 GOSUB 6960 
3780 GOTO 880 

3790 PRINT ft PL."the entrance is fllled with"; 

3800 GOSUB 6960 
3810 GOSUB 7020 

3820 PRINT ft PL."drifted sandl"; 

3830 GOSUB 6960 
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3840 GOTO 880 

3850 PRINT 8 PL.^'lt's to dark to see!"; 

3860 GOSUB 6960 
3870 GOTO 880 

3880 PRINT 8 PL,''there is no visible entrance!”: 

3890 GOSUB 6960 

3900 GOTO 880 

3910 IF MC<6 THEN 4030 

3920 MC«0 

3930 FOR I«1 TO 15 
3940 0(I, 5)«0 

3950 IF RNDC100)>50 0RCI«1 RND R>8)THEN IF I<15 THEN 4020 
3960 0(1, 5)»RNDC20) 

3970 V»0(I, 3) 

3980 GOSUB 6590 
3990 0(I, 6)-V 
^4000 IF I«1 THEN OCI, 5D*1 

4010 IF 1-15 THEN 0(1, 5)-RND(100)+M 
4020 NEXT I 
4030 GOSUB 7020 

4040 PRINT 8 PL,"Leave,Buy at market,Inventory?"; 

4050 RS-'^LBMI" 

4060 GOSUB 1940 
4070 IF Q-0 THEN 4030 

4080 IF Q-1 THEN GOSUB 2590: GOSUB 6610: GOTO 880 

4090 IF Q-4 THEN GOSUB 2090: GOTO 4030 

4100 GOTO 5360 

4110 GOSUB 150 

4120 ' 

4130 GOSUB 7120 
4140 ' 

4150 GOSUB 7020 

4160 PRINT 8 PL,*'You have encountered a band of'': 

4170 GOSUB 6930 
4180 GOSUB 7020 

4190 PRINT 8 PL, MID$(D$(2), 4): 

4200 GOSUB 6930 

4210 BM-RND(M+M/4)+INT(EG/10) 

4220 BS-RND(10) 

4230 BX-RND(INT(EG/10)) 

4240 SB-RND(IO) 

4250 BI-BM 
4260 BX-INT(BX) 

4270 IF Z<8 THEN GOSUB 7020: PRINT 8 PL,"they have an ESCORTr':: GOSUB 
6930 

4280 IW«RND(8)-10»(EX>2) 

4290 BW-BM^flW 
4300 GOSUB 7020 

4310 PRINT 8 PL,''There are" BM",": 

4320 IF IW<6 THEN PRINT'' LIGHTLY": ELSE IF I>5 AND IW<15 THEN PRINT" M 
ELL": ELSE PRINT"HEAVILY": 

4330 PRINT" armed": 

4340 GOSUB 6930 
4350 IF SU THEN 4470 
4360 GOSUB 7020 
4370 PRINT 8 PL, DS: 

4380 GOSUB 6930 

4390 PRINT 8 PL,"Attack,Run or be Friendly?": 

4400 GOSUB 6930 
4410 A$«"ARF" 

4420 GOSUB 1940 



4430 ON Q GOTO 4450. 4860. 5020 
4440 GOTO 4360 
4450 SU*-1 

4460 IF RNDC100)>.50 THEN SU«0: GOTO 4500 
4470 GOSUB 7020 
4480 BS»"they" 

4490 IF SU-1 THEN B$»"you": PRINT fi PL. BS'' were surpr ised*'; : GOSUB 6 
930 

4500 Fl«l 
4510 GOSUB 2150 
4520 BW*BM»IW 
4530 CLS 

4540 PRINT TRB( 12)''You''jTRB(22)"Them" 

4550 PRINT^'Men" TRB(12)M: TRB(22)BM 
4560 PRINT'^Weapons^'jTRBC 12)WV; TRBC22)BW 
4570 PRINT''Experience''jTRB( 12)EX; TRBC22)BX 
4580 PRINT i 400.'*LUCK*'; 

4590 GOSUB 150 
4600 ' 

4610 I»RND(100) 

4620 O-RNDCIOO) 

4630 PRINT § 415. T* " D; 

4640 RS-INKEY$ 

4650 IF THEN 4590 

4660 I*I-SU^(10 
4670 o*a+su«io 
4680 TW*WV+I+ST*5+EX^f5 

4690 IF FR THEN IF OCl. 1)*0 THEN TW*TW/5 
4700 WT-BW+a+SBÄ2+BXi(2 

4710 M*M-»-INT( (WT>TW)*RNDCM/10) + CTW>WT)*C RNDCM/20)-n) 

4720 BM«BM+INT(CTW>WT)*RNDCBW/10)+CWT>TW)»C RND(BM/20)-1)) 

4730 IF BM<0 THEN BM-0 
4740 GOSUB 3360 
4750 PRINT 

4760 PRINT'"Survivors"';TRBC12)M.* TRBC22)BM 
4770 IF BM*0 THEN 5240 

4780 IF BM<BI/4 RND RND(100)>50 RND FR»0 THEN 5050 
4790 PRINT 

4800 PRINT'Tight. Run or Terms?'' 

4810 R$*"FRT" 

4820 GOSUB 1940 

4830 IF Q»0 THEN 4790 

4840 IF Q-2 THEN 4860 

4850 IF Q*3 THEN 4920 ELSE 4500 

4860 IF SB>B OR RND(100)>90 OR FR«1 THEN GOSUB 7020: PRINT fi PL."You 
got away!"j: GOSUB 6930: FR-0: GOTO 5150 
4870 GOSUB 7020 

4880 PRINT « PL.^They caught you!": 

4890 GOSUB 6930 
4900 SU*1 
4910 GOTO 4470 
4920 I-WT^(RNDC100) 

4930 a*TWJ(RND( 10)^(CH 

4940 GOSUB 6930 

4950 IF a>I RND FR«0 THEN 5000 

4960 PRINT ft PL. RS: 

4970 GOSUB 6930 
4980 SU*1 
4990 GOTO 4470 
5000 BM«RNDCBM) 

5010 GOTO 5050 
5020 GOSUB 7020 
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5030 IF RND(10)>CH THEN PRINT ö PL. RSj: GOSUB 6960: SU*1: GOTO 4470 
5040 BM»RND(Bli) 

5050 PRINT « PL. BM''will join you!"; 

5060 GOSUB 6830 
5070 M»M+BM 
5080 PRINT 

5090 PRINT^They have:*' 

5100 PRINT 

5110 FOR 1*8 TO 15 

5120 IF RND(100)>50 THEN QT*RND(BM): 0(1. 1)«0(I. ID+QT: PRINT QT; OSC 
I) 

5130 NEXT 

5140 IF RND(100)>90 THEN PRINT''Too bad they had no GOLD!'' ELSE QT*INT( 
RND(5)*( CEG/10) + n«BM) : 0(17. n-0(17. ID+QT: PRINT QT; 0S(17) 

5150 EX*EX+1 
5160 PRINT 
5170 PRINT 

5180 PRINT « PL."RERDY TO GO ON?"; 

5190 A$*"R" 

5200 GOSUB 1940 

5210 IF SF THEN Z*SF: GOTO 2900 

5220 GOSUB 6610 

5230 GOTO 1780 

5240 IF FR THEN 6820 

5250 FOR 0*1 TO 2 

5260 GOSUB 150 

5270 ' 

5280 GOSUB 7120 
5290 ' 

5300 GOSUB 7120 
5310 NEXT 

5320 PRINT''VOU WON! 

5330 BM*2 

5340 PRINT"You managed to salvage:" 

5350 GOTO 5110 
5360 HC*0 
5370 0C»0 
5380 ZL-0 
5390 CLS 
5400 VF*1 

5410 PRINT"ITEM PRICE WT. QURNT." 

5420 PRINT 

5430 FOR 1*1 TO 15:C0L0UR 3 
5440 IF 0(1. 5)*0 THEN 5500 
5450 PRINT MIDS(STRS(n. 2)" 

5460 IF I<10 THEN PRINT" 

5470 PRINT OSd); TRB(18)0(I. 6D; TRB(23)0(I. 2D; TRB(27)0(I. 5) 

5480 ZL*ZL+1 

5490 IF ZL*7 THEN GOSUB 6480:IF ZL*99 THEN 5510 

5500 NEXT I 

5510 HB*0 

5520 Fl*l 

5530 GOSUB 2150 

5540 PRINT"You have" 0(17. n"Gold Coins" 

5550 PRINT"Your men are carrylng" TW"lbs" 

5560 GOSUB 7020 
5570 PRINT « PL. WS; 

5580 GOSUB 6960 
5590 GOSUB 2010 
5600 IF Q>17 THEN 5560 
5610 V*0(Q. 6) 
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5620 0L-3+RNDC4)-(5»(V>150)) 

5630 GOSUB 6590 

5640 X»Q 

5650 GOSUB 7020 

5660 IF OCX. 5)-0 THEN PRINT 9 PL. E$i: GOSUB 6960: GOTO 4030 
5670 GOSUB 7020 

5680 PRINT ö PL."Your offer?"; 

5690 GOSUB 6960 
5700 GOSUB 2010 
5710 Q-INTCQ) 

5720 GOSUB 7020 

5730 IF Q>-V THEN V-Q: GOTO 5930 
5740 IF RNDC30)«15 THEN V*Q: GOTO 5930 
5750 IF RND(20)-12 THEN OL-OL+10 
5760 IF RNDC100)-74 THEN V-VM2 

5770 IF Q<V/3 THEN PRINT 9 PL."not interested!";: GOTO 6050 

5780 IF Q«HB THEN HC-HC+1 

5790 IF Q<HB ORCQ*HB RND HC-2)THEN 6030 

5800 HB*Q 

5810 PRINT § PL."Teil you what I'm going to do--"; 

5820 GOSUB 6930 

5830 ZZ«INT(VifC (RNDC 15D+5)«.0n ) 

5840 IF ZZ<1 THEN ZZ»1 
5850 V*V-ZZ 

5860 IF V<HB THEN V-HB 

5870 IF Q>«V THEN V*Q: GOTO 5930 

5880 GOSUB 7020 

5890 IF RNDC100)>50 THEN PRINT 9 PL."For you IMl make it" V"OK?"; ELS 
E PRINT 9 PL."What do you say to" V"?"; 

5900 R$-INKEY$ 

5910 IF R$«"" THEN 5900 

5920 IF RS<>"Y" THEN 0C«0C+1:IF OC<OL THEN 5670 ELSE 6030 
5930 GOSUB 7020 
5940 PRINT 9 PL. HS; 

5950 GOSUB 6960 
5960 GOSUB 2010 

5970 IF Q>0(X. 5)THEN PRINT 9 PL. MS;: GOSUB 6960: GOTO 5930 

5980 IF Q*V>0C17. DTHEN GOSUB 7020: PRINT 9 PL."not enough GOLD!";: G 

OSUB 6960: GOTO 5930 

5990 OCX. n»ocx. n+Q 

6000 0C17. n*0C17. n-Qi(V 

6010 OCX. 5)»0CX. 5)-Q 

6020 GOTO 4030 

6030 GOSUB 7020 

6040 PRINT 9 PL. YS; 

6050 GOSUB 6960 

6060 OCX. 6)*INTC0CX. 6)/4)+0CX. 6) 

6070 GOTO 4030 

6080 PRINT 9 PL. OS" seil anything?"; 

6090 RS*INKEYS 

6100 IF RS-"" THEN 6080 

6110 IF RS<>"Y" THEN RETURN 

6120 GOSUB 7020 

6130 PRINT 9 PL. WS; 

6140 GOSUB 6960 
6150 GOSUB 2010 
6160 IF Q>17 THEN 6120 
6170 I-Q 

6180 IF OCI. n»0 THEN PRINT 9 PL. ES;: GOSUB 6960: GOTO 6080 
6190 V-INTCOCI. 3)/C RNDC3)+2)) 

6200 0L-5+RNDC5)-10+CV>80) 

6210 HB-OCI. 3D+1 
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6220 HC*0 

6230 IF RND(100)>50 THEN PRINT i PL.^I'll give you” V''0K?'': ELSE PRINT 
C PL,**Will you take*' V*'?'': 

6240 R$»INKEY$ 

6250 IF THEN 6240 

6260 IF R$*”Y'* THEN 6400 
6270 GOSUB 7020 

6280 PRINT § PL»"How much do you want?*'; 

6290 GOSUB 6960 
6300 GOSUB 2010 
6310 a»Q 

6320 IF O-HB THEN HC*HC+1 ELSE HC-0 
6330 IF 3<«V THEN 6400 

6340 IF a>HB ORCa«HB RND HC«2)0R OL-0 THEN PRINT « PL, Y$;: GOSUB 6960 
: RETURN 
6350 HB«a 

6360 ZZ»INTCV*( RNDC20)+10)».01) 

6370 IF ZZ<1 THEN ZZ*1 
6380 V-V+ZZ 
6390 IF V<a THEN 6230 
6400 GOSUB 7020 
6410 PRINT 9 PL, HS; 

6420 GOSUB 6960 
6430 GOSUB 2010 

6440 IF Q>OCI, DTHEN PRINT 9 PL, MS;: GOSUB 6960: GOTO 6400 

6450 0C17, 1)-0(17, 1)+VäQ 

6460 OCI, 1)*0CI, 1)-Q 

6470 RETURN 

6480 3«0 

6490 GOTO 6580 PRINT^press <RETURN> to continue, or** 

6500 PRINT"<SPRCE> to buy! 

6510 PRINT 
6520 GOTO 6550 
6530 RETURN 

6540 PRINT^'press <RETURN> to continue" 

6550 RS*INKEYS 

6560 IF RS»"" THEN 6550 

6570 IF RSC(RS)-32 THEN ZL«99 

6580 RETURN 

6590 V«V-RND((V/4)) 

6600 RETURN 
6610 CLS 

6620 FOR I»0 TO 10 
6630 FOR 3*0 TO 3 

6640 IF RNDC10)>5 THEN POKE SL + I+3)(L, 130 : POKE SL + I+3i(L-21504,6 

6650 NEXT 3, I 

6660 FOR I»0 TO 38 STEP 2 

6670 POKE 17728+1, 132 : POKE 1-3776, 8 

6680 POKE 17729+1, 133 : POKE 1-3775, 8 

6690 NEXT 

6700 FOR I»1 TO 21 STEP 2 
6710 FOR 3*0 TO 6 

6720 IF RND(10)>6 THEN POKE 17426+I+3*L, 128: POKE 17427+I+3^(L, 129: P 
OKE I+3itL-4078,15 : POKE I+3*L-4077,15 
6730 NEXT 3, I 

6740 POKE 17999, 134: POKE-3505,10 
6750 POKE 18000, 135: POKE-3504,10' 

6760 POKE 18001, 136: POKE-3503,10 
6770 POKE C+B+RäL, 131 
6780 FOR X»1 TO 32 

6790 IF OCX, 4X1 THEN POKE C+DCX, 2)«L+D(X, 3), OCX, 1) : POKE C+D(X, 
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2)i(L+D(X,3)-21504.2 
6800 NEXT 
6810 RETURN 
6820 CLS 

6830 FOR I-l TO 5 
6840 GOSUB 150 
6850 SOUND 4,89 
6860 GOSUB 7120 
6870 GOSUB 150 
6880 SOUND 4.176 
6890 GOSUB 7120 
6900 NEXT 

6910 C0L0UR5:PRINT ft 400." YOU'VE CONQUERED THE":PRINT" 

FORCES":PRINT" OF THE EVIL!":PRINT" RLL HAIL THE VICTOR!!!" 

6920 GOTO 6820 

6930 FOR WT-1 TO 300 

6940 NEXT 

6950 RETURN 

6960 FOR WT-0 TO 600 

6970 NEXT 

6980 RETURN 

6990 FOR WT-1 TO 1000 

7000 NEXT 

7010 RETURN 

7020 PRINT ft PL. STRING$(32. 32): 

7030 RETURN 

7040 PRINT ft 409."RUN TO MORLOCK'S TOWER"; 

7050 COLOUR 16 

7060 PRINT ft 454."The ulti«ate"; 

7070 PRINT ft 493."Rclventure Ga«e"; 

7080 COLOUR 9 

7090 PRINT ft 850."Press <RETURN> to play"; 

7100 COLOUR 16 

7110 RETURN 

7120 FOR WT-1 TO 25 

7130 NEXT 

7140 RETURN 

7150 CLS 

7160 COLOUR 5 

7170 PRINT"EINLEITUNG:" 

7180 COLOUR 16 

7190 PRINT"IN DIESEM ADVENTURESPIEL SIND SIE DER FUEHRER EINER RAUBR 
ITTERBRNDE UND STREIFEN DURCHS LAND. UM SICH GELD. WAFFEN UN 

D NEUE SOLDATEN ZU BESCHAFFEN. UM SCHLIESSLICH IN DEN < MORLOCK'S " 
7200 PRINT"TOWER > EINZUDRINGEN. DORT MUESSEN SIE DANN GEGEN DIE KRAE 
FTE DES BOESEN KAEMPFEN UND DIESE BESIEGEN. UM SELBST HERR UEBE 

R DAS LAND ZU WERDEN. DAS SPIELIST IN ENGLISCHER SPRACHE GESCHRIEBEN." 
7210 PRINT"DA DIESE KUERZER UND PRAEZISER ALS DIE DEUTSCHE IST." 

7220 PRINT"WENN MAN DEM SPIEL AUFMERKSAM FOLGT. WERDEN WOHL KEINE P 
ROBLEME AUFTRETEN." 

7230 PRINT 

7240 COLOUR 9 

7250 PRINT"<RETURN>" 

7260 COLOUR 5 
7270 A$-INKEY$ 

7280 IF A$-"" THEN 7270 
7290 GOTO 7300 
7300 CLS 

7310 PRINT"LANDKARTE:" 

7320 COLOUR 16 

7330 PRINT"DIE LANDKARTE IST WAEHREND DER MEISTEN ZEIT SICHTBAR. SIE 
ZEIGT AN. WO SICH DERSPIELER. MIT DEM KLEINEN MAENNCHEN SYMBOLISI 


ERT, GERADE BEFINDET UND WO DIE VERSCHIEDENEN INTERESSANTEN PUNKTE 

7340 PRINT'*LOKALISIERT SIND. MAN KANN DIE SPIEL- FIGUR MIT DEN TASTE 

N FUER DIE VIER HIMMELSRICHTUNGEN. ALSO 

7350 COLOUR 3 

7360 PRINT**N'*j 

7370 COLOUR 16 

7380 PRINT'*)ORTH."; 

7390 COLOUR 3 
7400 PRINT^S'*: 

7410 COLOUR 16 
7420 PRINT")OUTH. 

7430 COLOUR 3 
7440 PRINT" W": 

7450 COLOUR 16 
7460 PRINT")EST UND "j 
7470 COLOUR 3 
7480 PRINT"E": 

7490 COLOUR 16 

7500 PRINT")AST BEWEGEN" 

7510 PRINT"FOLGENDE 0B3EKTE WERDEN DARGESTELLT: DA IST ZUM EINEN EI 

NE GEWELLTE LINIE. DIE SICH QUER DURCH DIE KARTE ERSTRECKT.SIE STELL 
T EINEN FLUSS DAR. DER NUR MITTELS EINES BOOTES DURCHQUERT WERDEN 

KANN. DIE GEPUNKTETEN FLAECHEN " 

7520 PRINT"STELLEN EINEN SUMPF DAR CSWAMP). IN DEM IHRE SOLDATEN EINSI 
NKEN KOENNEN. DIE DANN NUR MITTELS EINES SEILS (ROPE) GERETTET 

WERDEN KOENNEN. IM NORDOEST-" 

7530 PRINT"LICHEN TEIL DES GEBIETES BEFINDET SICH EIN GEBIRGE. DAS TE 
ILWEISE MIT STILI SIERTEN BERGEN ANGEDEUTET IST." 

7540 COLOUR 9 

7550 PRINT" <RETURN>" 

7560 COLOUR 16 

7570 A$»INKEYS 

7580 IF AS-"" THEN 7570 

7590 CLS 

7600 PRINT^GANZ IM SUEDOSTEN IST EINE BURGANLAGE SICHTBAR. DORT IST" 
7610 COLOUR 3 

7620 PRINT"<MORLOCK*S TOWER>": 

7630 COLOUR 16 

7640 PRINT". DAS ENDZIEL IHRES ABENTEUERS. AUF DER KARTE SIND AUSSERDE 
M ZWEI 'k'5. DIESE BEZEICHNEN DEN STAND-" 

7650 PRINT"ORT VON STAEDTEN. WO SIE VERSCHIEDENE " 

7660 PRINT"DINGE EINKÄUFEN KOENNEN. BEIM DURCH- WANDERN DER LANDSCH 
AFT ERSCHEINEN IN IHRER NAEHE MANCHMAL NOCH ANDERE ZEICHEN. 

DIESE HABEN DIE SYMBOLIK:" 

7670 PRINT"C - CASLTLE CBURG) c » CAVE (HOEHLE OD 

ER KAVERNE) R - RUIN (RUINE) T - TOWER 

(TURM) S * SOLDIERS (SOLDATEN) 

0 » OGRES (ORGS) 

7680 PRINT"P « PILGRIMS (PILGER) W » WIZZARDS (GELEH 

RTE) 

7690 COLOUR 9 
7700 PRINT 
7710 PRINT 
7720 PRINT 

7730 PRINT"<RETURN>" 

7740 COLOUR 5 

7750 AS-INKEYS 

7760 IF AS-"" THEN 7750 

7770 CLS 

7780 PRINT"STADTBESUCH:" 

7790 COLOUR 16 - 
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7800 PRINT'^BRINGT MRN SEINE FIGUR MIT EINER STRDT (CITY) DECKUNGSGLEI 
CH. DRNN KRNN MRN DORT RUF DEN MRRKTPLRTZ GEHEN. DRS RNGE-BOT IST N 
ICHT IMMER VOLLSTRENDIG. UND MRN SOLLTE RUF DIE RRTIKEL RCHTEN. '' 
7810 PRINT'^MRN BRRUCHT STEIGEISEN (GRRBBLING HOOKSIUM IN EINEN TURM EI 
NDRINGEN ZU HOENNEN. GENRUSO WIE OELLRMPEN (OILLRMPS) UM IN HOEHLEN E 
INZUDRINGEN. EIN BOOT WRERE NOETIG UM DEN FLUSS ZU UEBERQUEREN. UM 
IN EINE RUINE EINZUDRINGEN SIND '' 

7820 PRINT^SCHRUFELN CSHOVELS) NOETIG UND IN EINE BURG KOMMT MRN NUR 
MIT EINEM GROSSEN SCHLUESSEL. DEN MRN RBER NUR IM SCHRTZ EINES TUR 
MS. EINER RUINE ODER EINER HOEHLE FINDEN KRNN. RUCH IST ES SINNVOL 

LNRHRUNGSPRKETE (RRTIONS) ZU KRUFEN. '' 

7830 PRINT^'UM DIE MRNNSCHRFT SRTT ZU HRLTEN. DIE PREISE KRNN MRN 

MIT IMRGINREREN HRENDLER RUSHRNDELN. INDEM MRN SICH RN DEM GEFOR 

DERTEN PREIS ORIENTIERT." 

7840 COLOUR 9 

7850 PRINT"<RETURN>" 

7860 COLOUR 16 
7870 R$*INKEV$ 

7880 IF R$«"" THEN 7870 
7890 CLS 
7900 COLOUR 5 
7910 PRINT"INVENTORY:" 

7920 COLOUR 16 

7930 PRINT"DRS INVENTORY IST EINE UEBERSICHT UEBER RLLE SRCHEN. DIE MR 
N BESITZT. SOWIE DIE RNZRHL DER EIGENEN SOLDRTEN UND DEREN TRRGKRRFT 
. WREHLT MRN DRS INVENTORY IN" 

7940 PRINT"DET R WILDNIS. SO KRNN MRN UEBER ES RRTIKEL WEGWERFEN 

. WRS NOETIG WIRD. WENNDIE SOLDRTEN DIE GESRMTE LRDUNG NICHT MEHR TR 
RGEN KOENNEN." 

7950 COLOUR 5 

7960 PRINT"EINDRINGEN:" 

7970 COLOUR 16 

7980 PRINT"WILL MRN IN EINE BURG. EINEN TURM. EINE RUINE ODER IN EINE 
HOEHLE EINDRINGEN. SOMUSS MRN SEINE FIGUR DRZU DECKUNGSGLEICHBRINGEN U 
ND 'U' FUER 'USE' BENUTZEN DRUECKEN. DRNN WIRD DRS INVENTORY RUF¬ 

GELISTET ": 

7990 PRINT"UND NRCH DEN ZU BENUTZENDEN RRTIKEL GEFRRGT. IST DIESER 
RICHTIG. SO WIRD DIE KRRTE GEZEICHNET UND MRN WIRD GEFRRGT. OB M 
RN SUCHEN ODER ODER DEN ORT VERLRSSEN WILL. NRCH ERFOLG- REICHER 
SUCHE KRNN MRN ENTWEDER EINEN SCHRTZ (CHEST) ": 

8000 PRINT"BZW. FEINLICHE SOLDRTEN FINDEN" 

8010 COLOUR 9 
8020 PRINT"<RETURN>" 

8030 COLOUR 5 
8040 R$-INKEY$ 

8050 IF RS*"" THEN 8040 
8060 CLS 

8070 PRINT"KRMPF:" 

8080 COLOUR 16 

8090 PRINT"MRN KRNN MIT SOLDRTEN ODER DER ESKORTE VON PILGERN ODER GE 
LEHRTEN KREMPFEN. BEGEGNET MRN SOLCHEN GIBT DER RECHNER DIE RNZRH 
L UND DIE KRMPFSTRERKE (LIGHT. WELL ODER HERVY) DER GEGNER RN. MRN " 
8100 PRINT"HRT DRNN DIE WRHL MIT IHNEN ZU KREMPFEN (RTTRtK BZW. FIGHT) 
. WEGZULRUFEN(RUN) ODER SICH MIT INHEN RNZUFREUNDEN (FRIENDLY 

. BZW TERMS). DER KRMPF IST BE-ENDET. WENN SIE ODER DER GEGNER VER¬ 
NICHTET SIND. SIE GEFLUECHTET SIND " 

8110 PRINT"ODER FEINDE ZU IHNEN UEBERGELRUFEN SIND.". 

8120 PRINT"<RETURN>" 

8130 RS-INKEYS 

8140 IF RS»"" THEN 8130 

8150 GOTO 80 
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8160 

POKE -3071. 

32 

8170 

POKE -3070, 

112 

8180 

POKE -3069. 

83 

8190 

POKE -3068. 

122 

8200 

POKE -3067. 

255 

8210 

POKE -3066. 

203 

8220 

POKE -3065. 

254 

8230 

POKE -3064. 

64 

8240 

POKE -3063. 

224 

8250 

POKE -3062. 

248 

8260 

POKE -3061. 

184 

8270 

POKE -3060. 

212 

8280 

POKE -3059. 

222 

8290 

POKE -3058. 

187 

8300 

POKE -3057. 

255 

8310 

POKE -3056. 

9 

8320 

POKE -3055. 

72 

8330 

POKE -3053. 

81 

8340 

POKE -3052. 

4 

8350 

POKE -3051. 

73 

8360 

POKE -3049. 

41 

8370 

POKE -3048. 

60 

8380 

POKE -3047. 

188 

8390 

POKE -3046. 

152 

8400 

POKE -3045. 

255 

8410 

POKE -3044. 

61 

8420 

POKE -3043. 

37 

8430 

POKE -3042. 

36 

8440 

POKE -3041. 

36 

8450 

POKE -3038. 

128 

8460 

POKE -3037. 

193 

8470 

POKE -3036. 

227 

8480 

POKE -3035. 

127 

8490 

POKE -3034. 

62 

8500 

POKE -3033. 

28 

8510 

POKE -3031. 

60 

8520 

POKE -3030. 

126 

8530 

POKE -3029. 

255 

8540 

POKE -3028. 

195 

8550 

POKE -3027. 

129 

8560 

POKE -3023. 

146 

8570 

POKE -3022. 

254 

8580 

POKE -3021. 

254 

8590 

POKE -3020. 

84 

8600 

POKE -3019. 

127 

8610 

POKE -3018. 

93 

8620 

POKE -3017. 

95 

8630 

POKE -3016. 

18 

8640 

POKE -3015. 

31 

8650 

POKE -3014. 

31 

8660 

POKE -3013. 

31 

8670 

POKE -3012. 

30 

8680 

POKE -3011. 

255 

8690 

POKE -3010. 

171 

8700 

POKE -3009. 

255 

8710 

POKE -3008. 

73 

8720 

POKE -3007. 

255 

8730 

POKE -3006. 

255 

8740 

POKE -3005. 

255 

8750 

POKE -3004. 

103 

8760 

POKE -3003. 

255 

8770 

POKE -3002. 

249 





8780 POKE -3001, 249 
8790 RETURN 
8800 COLOUR 14 

8810 PRINTCHRSC205):STRINGS(38,202) 
8820 FOR U*1 TO 21 

8830 PRINTCHR$(202)jSTRINGS(38.32); 
8840 NEXT 

8850 PRINTCHRS(228);STRINGSC38,202) 
8860 COLOUR 15 
8870 RETURN 


:CHRS(224) 
CHRS(202); 
jCHRS(226) 



BAR 


Gehören Sie auch zu den Leuten, die meinen, man müsse für 
seinen Computer möglichst viele sinnvolle Anwendungen finden? 

Nun hier ist eine: Unser Colour-Genie-Programm '*Bar*' ! 

Aus fast 80 verschiedenen Drinks-Rezepten sucht das Programm 
sicher einen Drink heraus, der Ihnen schmeckt. Dabei kann man 
alle Rezepte ausgeben, bestimmte Drinks nach ihrem Namen 
suchen, oder als Clou eine Liste der verfügbaren Zutaten 
eingeben, woraufhin das Colour-Genie alle Rezepte ausgibt, 
die mit den eingegebenen Zutaten gemixt werden können. 

Noch zwei Hinweise zum Eintippen: 

- Wir haben das Programm mit 40 Zeichen pro Zeile gelistet, 
damit Sie mit der Bildschirmformatierung keine Schwierig¬ 
keiten haben. 

- Lassen Sie sich nicht schon beim Eintippen zum Probieren 
der Rezepte verleiten, sonst riskieren Sie u.U. etliche 
Tippfehler. 

CFür dieses Programm muß Ihr Colour-Genie 32K RAM haben.) 
Programmlisting: 


10 POKE 16553, 255 
20 CLEAR 600 
30 DEFINT I. 3 

40 DEFSTR D. N. M. R. V, X, S, L 
50 DIM RCin, MCll), V(50), L(50) 

60 ON ERROR GOTO 2860 
70 CLS 

80 FOR 1*1 TO 239 
90 COLOUR RNDC16) 

100 PRINT'^BAR 

110 NEXT 

120 PRINT"BAR": 

130 FOR I-l TO 500 
140 NEXT I 
150 COLOUR 2 
160 CLS 

170 PRINT § 405,''DRINKS, DRINKS AND MORE 
DRINKS !" 

180 FOR I-l TO 800 
190 NEXT I 
200 CLS 
210 COLOUR 2 

220 PRINT 9 5, "ä**--«*^(ä* DRINKS *««-*** 
**»" 

230 PRINT 

240 COLOUR 5 

250 PRINT"WOLLEN SIE" 

260 COLOUR 5 
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270 PRINT 

280 PRINT^'n RUFLISTUNG ALLER VORHANDENE 
N REZEPTE” 

290 PRINT”2) WISSEN WAS SIE MIT IHREN ZU 
TATEN MIXEN KOENNEN” 

300 PRINT”3) DAS REZEPT FUER EINEN GANZ 
BESTIMMTEN DRINK 
310 COLOUR 2 
320 PRINT 

330 PRINT”FUER DIE RUECKKEHR ZU DIESER L 
ISTE BITTE 
340 COLOUR 3 
350 PRINT”'R' ”; 

360 COLOUR 2 

370 PRINT”DRUECKEN! 

380 D»INKEYS 

390 IF D»”” THEN 380 

400 ID-VALCD) 

410 ON ID GOTO 420. 680. 1740 
420 COLOUR 7 
430 PRINT 

440 PRINT”ZUM ANHALTEN DER AUFLISTUNG BI 
TTE 'SHIFT Sc «^GLEICHZEITIG DRUECK 

EN” 

450 FOR I«1 TO 200 

460 NEXT 

470 RESTORE 

480 READ N 

490 PRINT 

500 COLOUR 16 

510 PRINT STRINGSC40. 217); 

520 PRINT N 
530 COLOUR 5 
540 FOR 1*1 TO 400 
550 NEXT 
560 READ M 
570 PRINT 
580 PRINT M 
590 PRINT 
600 1*0 
610 RE»INKEYS 

620 IF RE-”R” THEN RE»””:GOTO 200 

630 COLOUR 3 

640 READ MCI). RCI) 

650 IF LEFTSCRCI). 1)*”»” THEN: N»R(I): 
GOTO 490 

660 PRINT MCI). RCI) 

670 GOTO 630 
680 PRINT 
690 COLOUR 14 

700 PRINT”BITTE TIPPEN SIE JEWEILS D C*J 
A) FUER JEDE ZUTAT EIN. DIE SIE VORRAE 
TIG HABEN.ANDERNFALLS 'N' EINTIPPEVi.” 

710 FOR 1*0 TO 50 
720 VCI)*”N” 

730 NEXT I 
740 1*0 
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750 L(0) «''ZUCKER'' 

760 LCD «"ZITRONE" 

770 L(2)«"ORANGE" 

780 L(3)-"ANANAS" 

790 L(4)-"GRAPEFRUIT" 

800 L(42)«"KIRSCHE" 

810 LC5)-"STAUBZUCKER" 

820 L(6)«"ANG0STURA" 

830 LC7)«"GRENADINE" 

840 L(8)-"WERMUT" 

850 L(9)-"GIN" 

860 LCIO)-"RUM" 

870 L(11)«"WHISKY" 

880 LC12)«"SEKT" 

890 L(13)-"CURACA0" 

900 L(14)«"GRAND MARNIER" 

910 L(15)-"C0INTREAU" 

920 L(16)«"APRICOT BRANDY" 

930 L(17)«"CHERRY BRANDY" 

940 L(18)-"PRINZEN KIRSCH" 

950 L(19)«"MARASCHINO" 

960 LC20)«"BANANENLIKOER" 

970 L(21)«"KOKOSNUSSCREME" 

980 LC22)«"PFEFFERMINZLIKOER" 

990 L(23)«"CREME DE KAKAO" 

1000 L(24)«"KAFFEELIKOER" 

1010 LC25)-"CALVADOS" 

1020 LC26)«"C0RDIAL MEDOC" 

1030 LC27)«"SOUTHERN COMFORT" 

1040 LC28)«"WODKA" 

1050 LC29)«"COGNAC" 

1060 LC30)«"BRANDY" 

1070 LC31)«"PORT" 

1080 LC32)«"SHERRY" 

1090 LC33)»"ROTWEIN" 

1100 LC34)«"TONIC WASSER" 

1110 LC35)«"GINGER ALE" 

1120 LC36)«"R0SES LIME OUICE" 

1130 LC37)«"TRINKSCHOKOLADE" 

1140 LC38)»"MOCCA" 

1150 LC39)»"EI" 

1160 LC40)»"ZITRONENSORBET" 

1170 LC41)»"VANILLE EIS" 

1180 LC42)»"TEQUILA" 

1190 LC43)»"CASSIS" 

1200 LC44)»"BENEDICTINE" 

1210 LC45)»"CAMPARI" 

1220 PRINT 
1230 FOR a«0 TO 45 
1240 COLOURCa AND l)+2 
1250 PRINT LCO); 

1260 PRINT TABC20); CHRSC14): 

1270 X»INKEY$ 

1280 IF X«"" THEN 1270 

1290 IF X»"a" THEN VCD-LCO): I-I + l 

1300 PRINT X 
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1310 NEXT 3 

1320 PRINT CHR$C15)J 

1330 PRINT 

1340 PRINT"SUCHE BEGINNT - BITTE WARTEN*' 

1350 RESTORE 

1360 RERD N 

1370 RERD M 

1380 I-O 

1390 RERD MCI), RCI) 

1400 IF LEFTSCRCI). 1)-"*" THEN: NR*R(I) 

: RCI)-"": GOTO 1430 

1410 I-I+l 

1420 GOTO 1390 

1430 I«0 

1440 3«0 

1450 RE-INKEY$ 

1460 IF RE«"R" THEN: RE»"": GOTO 200 
1470 IF LEFTSCRCI), LENCVC 3)))»V(3)THEN 
1550 

1480 3«3+l 

1490 IF VC3)<>"N" THEN 1470 
1500 FOR I»0 TO 11 
1510 RCn«"" 

1520 NEXT I 
1530 N»NR 
1540 GOTO 1370 
1550 I-I+l 

1560 IF RC!)<>"" THEN 1440 

1570 PRINT 

1580 COLOUR 16 

1590 PRINT STRINGSC40. 217) 

1600 COLOUR 5 

1610 PRINT N 

1620 PRINT 

1630 COLOUR 2 

1640 PRINT M 

1650 PRINT 

1660 I»0 

1670 COLOUR 3 

1680 PRINT MCI). RCI) 

1690 I-I+l 

1700 IF RC!)<>"" THEN 1670 
1710 FOR 1-1 TO 999 
1720 NEXT I 
1730 GOTO 1500 
1740 PRINT 

1750 INPUT"WELCHEN DRINK SUCHEN SIE"jS 

1760 IF RIGHTSCS, 1)»" " THEN: S-LEFT$CS 

. LENCS)-1): GOTO 1760 

1770 S»"* " +S 

1780 RESTORE 

1790 FOR 1-1 TO LENCS) 

1800 IF MIDSCS, I. 1)»" " THEN IF 
. I+l, 1)-" " THEN: S»LEFT$CS. I)+RIGHT$ 
CS. LENCS)-I-1): GOTO 1790 
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1810 NEXT 
1820 PRINT S 
1830 RERD D 
1840 RE-INKEY$ 

1850 IF RE»"R" THEN: RE»'"': 40 

1860 IF LEFT$CD. LEN(S)D<>S THEN 1830 

1870 N»D 

1880 PRINT 

1890 PRINT N 

1900 I-O 

1910 RERD M 

1920 PRINT 

1930 COLOUR 16 

1940 PRINT STRING$C40,217D 

1950 PRINT M 

1960 PRINT 

1970 RERD MC n. RC1) 

1980 IF LEFTSCRCn. 1 )»"*" THEN 2040 

1990 C0L0UR5 

2000 PRINT MC IK 

2010 C0L0UR2 

2020 PRINT RC1) 

2030 GOTO 1970 
2040 RE«INKEY$ 

2050 IF RE<>"R" THEN: RE»"": GOTO 2040 E 
LSE 200 

2060 DRTR» RRUHREIF-COCKTRIL, SHRKER MIT 
EIS ~ 2UTRTEN - GUT SCHUETTELN 

UND IN EIN COCKTRIL- GLRS MIT ZUCKER 
RRND SEIHEN. 1/3. GIN. 1/3. CURRCRO TRIP 
LE SEC. 1/3. ZITRONENSRFT. 1 SPRITZER. R 
UM 

2070 DRTR 0,* LONG LUCRS. MIXBECHER MIT 
EIS - ZUTRTEN - MIT SEKT RUFFUELLEN - 1 
ORRNGEN - SCHEIBE EINLEGEN - MIT 

ZITRONENSCHEIBE GRRNIEREN. 1/2. GIN. 1/ 
2. CURRCRO ORRNGE. SRFT 1. ORRNGE. 1/2. 
ZITRONE 

2080 DRTR 0.* INFERNO. IN EINER SEKTSCHR 
LE ZUTRTEN MIT ZITRONENSCHRLE RBSPRITZEN 
- DRNN MIT EINEM SCHUSS FRISCHEM 0 

RRNGENSRFT UND SEKT RUFFUELLEN - EISS 
TUECKE BEIGEBEN. 1/3. GIN. 2/3. CURRCRO 
ORRNGE. . ORRNGENSRFT. . SEKT 
2090 DRTR 0.» GIN FIZZ. IM SHRKER MIT KL 
EINGESTOSSENEM EIS ZUTRTEN KRREFTIG 

SCHUETTELN IN EIN GLRSGEBEN UND MIT SO 
DR RUFSPRITZEN. 2/3. GIN. 1/3. ZITRONENS 
RFT. 1 TL. STRUBZUCKER 

2100 DRTR 0.# SILVER MOON. ZUTRTEN MIT E 
IS MIXEN UND EINER HRLBEN SCHEIBE ORRNG 
E GRRNIEREN. 1/3. GIN. 1/3. RPRICOT BRRN 
DY. 1/3. ORRNGENSRFT 

2110 DRTR O.^f MRRTINI DRY. ZUTRTEN MIT E 
ISWUERFELN IM MIXBECHER GUTVERRUEHREN: D 
URCHSEIHEN - IM COCKTRILGLRS 

MIT OLIVE SERVIEREN - NRCH WUNSCH MIT ZI 



TRONENSCHALE RBSPRITZEN. 2 DRSH, ORRNQE- 

BITTER. 1/2. WERMUT DRY. 1/2. GIN 

2120 DRTR 0.» WHITE LRDY. SHRKER MIT EIS 

- ZUTATEN - GUT SCHUETTELN UND 

IN EIN COCKTAIL- GLAS SEIHEN. 3 

/6. GIN. 2/6. CURACAO TRIPLE SEC. 1/6. Z 
ITRONENSAFT 

2130 DATA 0.» LUCAS' LEMON SPECIAL. ZUTA 
TEN MIT 2 EL GESTOSSENEM EIS INS LONG 
DRINKGLAS - MIT MINERALWASSER AUFF 

UELLEN. 1 GLAS. ZITRONE. 1 GLAS. GIN. 2 
GLAESER. GRAPEFRUIT-SAFT. 1. KIRSCHE 
2140 DATA 0.i( ADRIA LOOK. ZUTATEN IM MIX 
BECHER KURZ SCHUETTELN; INEINE SEKTSCHAL 
E GIESSEN UND MIT SEKT AUFFUELLEN. 2 CL. 
GIN. 2 CL. CURACAO. 2 TL. ZITRONENDSAFT 
(NATUR). . SEKT ZUM AUFFUELLEN 
2150 DATA O.^f GIN TONIC. ZUTATEN AUF EIS 
GEBEN UND MIT TONIC AUFGIESSEN. 1 G 

LAS. GIN. 1 SCHEIBE. ZITRONE. . TONIC WA 
SSER ZUM AUFFUELLEN 

2160 DATA 0.» MOON DRIVER. ZUTATEN MIT E 
IS MIXEN- IN SEKTSCHALE GEBEN- MIT SE 
KT AUFFUELLEN GARNIERUNG 1 MARASCHINO¬ 
KIRSCHE + 1 SCHEIBE ZITRONE. 3 CL. GIN. 

2 CL. PRINZEN KIRSCH. 1 CL. WERMUT. . SE 
KT ZUM AUFFUELLEN 

2170 DATA 0.» BOLS FROST. IM TUMBLER EIS 
MIT ZUTATEN VORBEREITEN- MIT TONIC AUFF 
UELLEN GARNIERUNG SCHEIBE ZITRON 

E- ORANGE- KIRSCHE. 4 CL. GIN. 2 CL. CUR 
ACAO. 2 CL. ZITRONENSAFT. . TONIC WASSER 
ZUM AUFFUELLEN 

2180 DATA 0.» SILVER TOP. ZUTATEN IM MIX 
BECHER MIXEN- MIT SEKT IN SEKTSCHALE AUF 
FUELLEN GARNIERUNG SCHEIBE ORANGE 

- KIRSCHE. 1/3. CURACAO TRIPLE SEC. 1/3. 
GIN. 1/6. GRENADINE. 1/6. ORANGENSAFT. 

. SEKT ZUM AUFFUELLEN 

2190 DATA 0.« BOLS TOP SLING. ZUTATEN IN 
MIXBECHER - 2-3 STUECKE EIS IN TUMBLER 
; UMRUEHREN UND MIT TONIC AUFFUELLEN 

. 4 CL. GIN. 1/2 CL. GRENADINE. 1/2 CL. 
CURACAO. A DASH. ANGOSTURA. 2. KIRSCHEN, 
1/2 SCHEIBE. ORANGE 

2200 DATA 1/2 SCHEIBE. ZITRONE. . TONIC 
WASSER 

2210 DATA 0.« HONOLULU COOLER. ZUTATEN M 
IXEN IN AUSGEHOEHLTER ANANAS SERVIEREN 
. 1/3. ANANASSAFT. 1/3. ROSES LIME JUICE 
. 1/3. SOUTHERN COMFORT 

2220 DATA 0 »* PINA COLADA. ZUTATEN MIXEN 

- VERSCHIEDENE RUMSORTEN -UND IIS KOKOSN 

USS SERVIEREN. 1/4 L. ANANASSAFT. 



2 EL, KOKOSNUSSCREME. 1 SCHUSS. COINTREA 
U. VIEL. RUM 

2230 DRTR 0.» MRI-TRI. ZUTATEN KRAEFTIG 
SCHUETTELN - GARNIERUNGZITRONENSCHEIBE + 
KIRSCHE. 1/2. ZITRONENSAFT. 1/2. RO 
SES LIME OUICE. 1 SCHUSS. CURACAO WEISS. 

2 CL. RUM WEISS. 2 CL. RUM BRAUN 
2240 DATA 0.^( PLANTER'S PUNCH. ZUTATEN I 
N EINEM HOHEN GLAS MIXEN UND RVIEREN. 
1/3. ORANGENSAFT. 1/3. ZITRONENSAFT. 1/3 
. ANANASSAFT. 1 DASH. GRENADINE. 2 CL. R 
UM WEISS. 2 CL. RUM BRAUN 
2250 DATA MINT-FRAPPE. HOHES GLAS ZU 

R HAELFTE MIT GESTOSSENEM EIS FUELLEN - 
LIKOER DARUEBER LAUFEN LASSEN - MIT 
SODAWASSER AUFFUELLEN GARNIERUNG FR 

ISCHE MINZE. BELIEBIG. PFEFFERMINZLIKOER 
2260 DATA 0.* PUSSY-FOOT. EIS + ZUTATEN 
MIXEN - MIT FRUECHTEN GARNIEREN. 1/3 

. ANANASSAFT. 1/3. ORANGENSAFT. 1/3. GRA 
PEFRUITSAFT 

2270 DATA 0.* SUMMERWIND. ZUTATEN + 3 EI 
SWUERFEL MIXEN - MIT BITTER GRAPEFR 

UIT AUFFUELLLEN. 1 TL. ZITRONENSAFT. 2 G 
LAESER. WODKA. . BITTER GRAPEFRUIT 
2280 DATA 0 ,* BANANA DAIQUIRI. IM ELEKTR 
ISCHEN MIXER EIS + EINE HALBE BANANE MI 
T ZUTATEN MIXEN - BIS EIS ZU SCHNEE WI 
RD - IM TUMBLER SERVIEREN. 2 CL. BANANEN 
LIKOER. 4 CL. RUM BRAUN. 1 DASH. ZITRON 
E 

2290 DATA 0.* CREOLE. IM SHAKER ZUTATEN 
+ EIS + TRINKSCHOKOLADE MI 

XEN MIT SCHOKOLADEN- STREUSEL SERVIEREN 
. 2 CL. CREME DE KAKAO. 4 CL. RUM BRAUN 
. BELIEBIG. TRINKSCHOKOLADE 
2300 DATA O.^t BRASIL. ZUTATEN + EIS IN E 
ISBECHER GEBEN - UMRUEHREN - SERVIE 

REN. 8 CL. MOCCA STARK. 1 EL. ZUCKER 
BRAUN. 4 CL. RUM 

2310 DATA 0.» ZOMBIE. ZUTATEN IN LOGDRIN 
KGLAS GEBEN + FRUECHTE +EIS VOR 

SICHTIG UM- RUEHREN MIT ZIMTSTANGE SER 
VIEREN. 2 CL. KAFFEELIKOER. 4 CL. RUM B 
RAUN 

2320 DATA 0. PRAIRIE OYSTER. NACHEINAND 
ER IN EIN COCKTAILGLAS GEBEN. 1 TL. WORC 
ESTERSAUCE. 2 TL. KETCHUP. TROPFEN. OEL. 

TROPFEN. ESSIG. 1. EIGELB. . SALZ. . PF 
EFFER. . CURRY. . TABASCO. . PAPRIKA. . 
MUSKATNUSS 

2330 DATA 0.* PORTWEIN COBBLER. HOHES GL 
AS ZU 2/3 MIT GESTOSSENEM EIS FUELLEN 
- ZUTATEN - MIT SODAWASSER AUFFUELLEN 
MIT FRUECHTEN GARNIEREN. 2 TEILE. PORT. 



1 TEIL. GRAND MARNIER. 1 TEIL. MARASCHI 
NO. 1 TL. ZUCKERSIRUP 

2340 DATA 0 .^ SHERRY-COBBLER, COBBLER GL 
AS ZU 1/3 MIT FEINEM EIS FUELLEN - 

ZUTATEN - MIT SODA-WASSER AUFFUELLEN - 
DURCHRUEHREN. 2/3. SHERRY FIND. 1/3. CO 
GNAC. 2 SCHUSS. PORT 

2350 DATA 0. RUM CRUSTA. ZUTATEN + 5 ST 
UECKE EIS IN SHAKER - 1/2 MINUTE KRAEFTI 
G SCHUETTELN - IN GLAS MIT ZUCKE 

RKRUSTE SEIHEN, SAFT 1/2. ZITRONE. 2 EL. 
ZUCKERSIRUP. 2 DASH. ANGOSTURA. 3 DASH. 
MARASCHINO. 1 GLAS. RUM 
2360 DATA 0 »^ BRANDY COOLER. ZUTATEN + E 
IS IN SHAKER - MIXEN - ANSCHLIESSE 

ND IN WHISKY-BECHER SEIHEN UND MIT GIN 
GERALE AUFFUELLEN. 1 TL. ZUCKER. SAFT 1/ 
2. ZITRONE. 1/2 GLAS. BRANDY. . GINGER A 
LE 

2370 DATA 0.* GIN COOLER, WIE BRANDY COO 
LER - OEDOCH GIN STATT BRANDY. . 

2380 DATA 0.» EYEBRIGHT COOLER. GROSSER 
WHISKYBECHER - ZUTATEN + 3 STUECK 

E EIS - MIT GINGER ALE AUFFUELL 

EN - MIT KIRSCHEN UND ANANAS SERVIERE 
N, SAFT 1/2. ZITRONE. 1/2 GLAS. CALVADOS 
. 1/2 GLAS. CORDIAL MEDOC. . GINGER ALE 
2390 DATA 0 ,^ CABLEGRAM COOLER. GROSSER 
WHISKYBECHER - ZUTATEN + 3 STUECK 

E EIS - MIT GINGER ALE AUFFUELL 

EN - UMRUEHREN - MIT ZWEI KIRSCHEN 

SERVIEREN, SAFT 1/2. ZITRONE. 1 EL. GRE 
NADINE. 1/2 GLAS. WHISKY. . GINGER ALE 
2400 DATA 0.» LOVER'S DREAM. ZUTATEN IM 
MIXBECHER MIT GABEL DURCHSCHLAG 

EN - MIT GINGER ALE AUFFUELLEN 

- MIT KIRSCHE UND STROHHALM SERVIEREN. 
1. EI. 1 EL. ZUCKER 

2410 DATA SAFT 1/2. ZITRONE. . GINGER AL 
E 

2420 DATA O.if CHAMPAGNER DAISY.ZUTATEN I 
N ZU 1/3 MIT EIS GEFUELLTEN MIXBECHER GE 
BEN- 1/2 MINUTE LANG MIXEN - INSEKTSCHAL 
E MIT SEKT AUFFUELLEN - MIT 2 KIRSCHE 
N UND 2 STUECKEN ANANAS SERVIEREN 

.SAFT 1/4.ZITRONE.1 TL.GRENADINE 
2430 DATA 1/2 GLAS.BRANDY..SEKT 
2440 DATA 0,* BRANDY DAISY. WIE CHAMPAGN 
ER DAISY - OEDOCH MIT 1 STATT 1/2 GL 

AS BRANDY - MIT SODA AUFFUELLEN. 

2450 DATA 0.» GIN DAISY. WIE CHAMPAGNER 
DAISY - OEDOCH GIN STATT BRANDY. SAfT 1/ 
4. ZITRONE, 1 TL. GRENADINE. 1/2 GLAS. G 
IN 
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2460 DATA 0.» RUM DAISY. WIE CHAMPAGNER 
DAISY - JEDOCH RUM STATT BRANDY. SAFT 1/ 
4. ZITRONE. 1 TL. GRENADINE. 1/2 GLAS. R 
UM 

2470 DATA 0.* WHISKY DAISY. WIE CHAMPAGN 
ER DAISY - JEDOCH WHISKY STATT BRANDY 
. SAFT 1/4. ZITRONE. 1 TL. GRENADINE. 1/ 
2 GLAS. WHISKY 

2480 DATA 0. ASCOT DAISY. MIXBECHER ZU 
1/3 MIT EIS FUELLEN - ZUTATEN - SCH 

UETTELN UND IN SEKTSCHALE GEBEN - MIT 5 
KIRSCHEN GARNIEREN - SODAHINZUFUEGEN. 

2 TL. CHERRY BRANDY. SAFT 1/4. ZITRONE. 

2 TL. WHISKY. 2 EL. GIN 

2490 DATA 0.* MANHATTAN. MIXEN - MIT KIR 
SCHE GARNIEREN. 1 DASH. ANGOSTURA. 2/3. 
WHISKY. 1/3. WERMUT ROT 

2500 DATA O.^f BRONX. MIXEN. 1/4. GIN. 1/ 
4. WERMUT ROT. 1/4. WERMUT WEISS. 1/4. 
ORANGENSAFT 

2510 DATA 0.^( INDIA. MIXEN. 1 DASH. MARA 
SCHINO. 1/3. GRAPEFRUITSAFT. 2/3. GIN 
2520 DATA 0.^ MADAME. MIXEN - MIT ZITRON 
ENSPIRALE UND KIRSCHE GARNIEREN. 1 DASH. 

ANGOSTURA. 2 SCHUSS. WERMUT. 4 CL. GIN 
2530 DATA 0.» MOONLIGHT. MIXEN. 1 DASH. 
ORANGENSAFT. 1 DASH. CURACAO. 1/3. WERMU 
T. 2/3. GIN 

2540 DATA 0 ,^ PARADIES. MIXEN. 1/3. GIN. 

1/3. APRICOT BRANDY. 1/3. ORANGENSAFT 
2550 DATA 0.» EXPRESS. MIXEN. 1/3. GIN. 
1/3. APRICOT BRANDY. 1/3. WERMUT 
2560 DATA 0.» BAMBOO. MIXEN - MIT 1 STUE 
CK ZITRONENSCHALE SERVIEREN. 2 DASH. 

ANGOSTURA. 1/2. SHERRY. 1/2. WERMUT 
2570 DATA 0.* KIR ROYAL. ZUCKER IN SEKTG 
LAS - ZUTATEN DER REIHE NACH BEIGEBEN. 

1 TL. ZUCKER. 1 DASH. ANGOSTURA. 2 CL. C 
OGNAC. . SEKT ZUM AUFFUELLEN 

2580 DATA 0.» OHIO. MIT KALTEM SEKT AUFF 
UELLEN - KIRSCHE EINLEGEN. 1 DASH. ANGOS 
TURA. 1/3. WHISKY. 1/3. WERMUT ROT. 1/3 
. CURACAO 

2590 DATA O.ä TOM COLLINS. 4 EISWUERFEL 
IN LONGDRINKGLAS - ZUTATEN - MIXEN - MIT 
SODA AUFFUELLEN. SAFT 1. ZITRONE. 

2 TL. ZUCKER. 2 CL. GIN 

2600 DATA 0.* WHISKY FIX. GLAS ZU 1/3 MI 
T EIS FUELLEN - ZUTATEN - UMRUEHREN - ZI 
TRONEN- SCHEIBE UND STROHHALM BE IG 

EBEN. 2 EL. ZUCKERSIRUP. SAFT 1. ZITRONE 
. 1 CL. CURACAO ORANGE. 2 CL. WHISKY SC 
OTCH 

2610 DATA 0.» PRINCE OF WALES. HOHES GLA 
S “ 4 EISWUERFEL - ZUTATEN - UMRUEHREN 
UND MIT SEKT AUFFUELLEN - GARNIERUN 
G 1 SCHEIBE ORANGE. 1/2 GLAS. CURACAO. 

2 DASH. ANGOSTURA 



2620 DATR O.« SALTY DOG, GLAS ZUR HAELFT 
E MIT EIS FUELLEN - ZUTATEN + 1 PRI 

SE SALZ - UMRUEHREN -MIT STROHHALM S 

ERVIEREN, 2 CL, WODKA. 4 CL, GRAPEFRUITS 
AFT 

2630 DATA 0.» PINK CARTER PICK ME UP. SE 
KTSCHALE - 2 EISWUERFEL + ZUTATEN - MIT 
ZITRONENSCHALE ABSPRITZEN. 3 DASH 

. ANGOSTURA. 1/4 GLAS. GRENADINE. 1/4 QL 
AS. ZITRONENSAFT. 1/2 GLAS. GIN. . SEKT 
ZUM AUFFUELLEN 

2640 DATA 0.« WODKA FIZZ. ZUTATEN MIT EI 
S GUT SCHUETTELN - IN GLASSEIHEN - MIT S 
ODA AUF- FUELLEN. 1/4. WODKA. 3/4. ANANA 
SSAFT 

2650 DATA 0.» BLOODY MARY. ZUTATEN MIT E 
IS SCHUETTELN. . TOMATENSAFTGUT GEKUEHLT 
. 2 CL, WODKA. 1 DASH. WORCESTER-SAUCE. 

. PFEFFER. . SALZ. . PAPRIKA. 1 DASH. ZI 
TRONENSAFT 

2660 DATA 0 ,* SCREW DRIVER. WODKA IN EIN 
GLAS MIT EIS GEBEN - MIT SAFT AUFFUEL 
LEN - SCHUETTELN, 2 CL, WODKA. . 

ORANGENSAFT ZUM AUFFUELLEN 
2670 DATA 0.* MOSCOW MULE. ZUTATEN + EIS 
INS GLAS - MIT GINGER AUF-FUELLEN. 4 CL 
. WODKA. . GINGER ALE ZUM AUFFUELLEN. 1. 
ZITRONENSCHEIBE 

2680 DATA GIMLET. ZUTATEN IM SHAKER 

MIT EIS SCHUETTELN. 1/3, ROSES LIME OUIC 
E, 2/3, WODKA 

2690 DATA 0,»ANGOSTURA SCORPION, MIT EIS 
MIXEN. 2 EL, ZUCKERSIRUP. 2 EL, ROSES L 
IME JUICE, 1 DASH. ANGOSTURA. 3 EL. RUM 
2700 DATA 0.» RUM PUNCH, ZUSAMMENGEBEN - 
BITTER «c GINGER ALE ALS LETZTES, 1 TASS 
E. ZITRONENSAFT. 2 TASSEN. ERDBEERSIRUP. 

3 TASSEN. RUM WEISS (JAMAICA). 2 TASS 
EN. ANANASSAFT. 1 TASSE. GRAPEFRUITSAFT. 

1 TASSE. GINGER ALE. DASHES. ANGOSTURA 
2710 DATA 0.» INC IDENT. SORBET + ZUTATEN 
IN SCHMALES GLAS GEBEN. 1 EL. ZITRONENS 
ORBET. 4 CL. RUM BRAUN EISKALT. 4 CL. 
ROTWEIN 

2720 DATA 0.» WHITE WITCH. ZUTATEN SCHAU 
MIG MIXEN. 1/4. KAKAO RUM LIKOER. 1/4. R 
UM. 1/2, VANILLE EIS 

2730 DATA 0.» MORGAN'S REVENGE, MIT EIS 
MIXEN - MIT SODA AUFFUELLEN. 1/4. RUM. 1 
/2. ANANASSAFT, 1/4, ORANGENLIKOER BITT 
ER 

2740 DATA 0.» PEACH'S SPECIAL. EIS + ZUT 
ATEN IM SHAKER MIXEN - MIT KIRSCHE S 

ERVIEREN. 1 DASH. ANGOSTURA. 1/3. CHERRY 



BRRNDY, 1/3, WERMUT WEISS. 1/3, GIN 
2750 DRTR 0, RCRPULCO. 4 ZERKLEINERTE E 
ISWUERFEL IN GLAS - MIT SODA AUFFUELLEN, 
1 TL. ZUCKERSIRUP. 5 CL. TEQUILA. 2.5 C 
L. CASSIS. 1. ZITRONENSCHEIBE. . SODA ZU 
M AUFFUELLEN 

2760 DATA 0.» TEQUILA CALIENTE. ZUTATEN 
MIXEN & 3 EISWUERFEL MIXEN - MITSODA AUF 
FUELLEN, 4 CL. TEQUILA. 1 CL. CASSIS. 1 
CL. ROSES LIME JUICE. 2 DASHES. GRENADIN 
E. 5-10 CL. SODA 

2770 DATA O.if THE BLACKEST RUSSIAN. ZUTA 
TEN IN GLAS GEBEN - VORSICHTIG 3 EISWUER 
FEL ZUGEBEN. 2.5 CL. KAFFEELIKOER, 7.5 C 
L. WODKA 

2780 DATA 0.» WERMUT CASSIS. ZUTATEN k 3 
EISWUERFEL IN GLAS GEBEN - MIT SODA AU 
FFUELLEN. 8 CL, WERMUT TROCKEN. 3.5 CL. 
CASSIS 

2790 DATA WHISKY COCKTAIL. ZUTATEN t, 

3 EISWUERFEL IM SHAKER MIXEN. 5 CL. WHI 
SKY. 2 DASHES. ANGUSTURA. 1 TL. ZUCKERSI 
RUP, 1. KIRSCHE 

2800 DATA 0.» ZUBROWKATINI. ZUTATEN k 3 
EISWUERFEL IM SHAKER MIXEN. 4 CL. WODKA. 

6 CL. PFEFFERMINZLIKOER WEISS. 4 CL. Z 
ITRONENSAFT. 1. KIRSCHE GRUEN 
2810 DATA 0.^( ADONIS. ZUTATEN k 3 EISWUE 
RFEL VERRUEHREN. 1.5 CL. WERMUT ROT. 3 
CL. SHERRY. 1 DASH. ANGOSTURA 
2820 DATA 0.^( HONEYMOON. 3 EISWUERFEL k 
ZUTATEN IM SHAKER MIXEN. 3 DASHES. CURAC 
AO ORANGE. 1 CL. ORANGENSAFT. 1.5 CL. BE 
NEDICTINE. 2.5 CL. CALVADOS 
2830 DATA 0.« RED SHADOW. 3 EISWUERFEL k 
ZUTATEN IM SHAKER MIXEN. 3 DASHES. ANGO 
STURA. 1 CL. APRICOT BRANDY. 1 CL, CHERR 
Y BRANDY. 3 CL. WHISKY 

2840 DATA 0,^ TAKE TWO. 3 EISWUERFEL «c Z 
UTATEN MIXEN. 2.5 CL. GIN. 1.5 CL. COINT 
REAU. 1 CL. CAMPARI 

2850 DATA 0,* ROLLS ROYCE. ZUTATEN IN GE 
GEBENER REIHENFOLGE IN EIN GLAS GEBEN - 
UMRUEHREN. 2-3. EISWUERFEL. 2.5 CL, GIN. 

1.5 CL. WERMUT DRY. 1 CL. WERMUT WEIS 
S. 1-2 DASHES. BENEDICTINE. 1. KIRSCHE 
2860 FOR I«1 TO 300 
2870 NEXT I 
2880 RESUME 200 



Ein Maschinensprache-Monitor in BftSIC 


Dieses Programm stammt aus dem *Colour-Genie-Buch 1*. Es Nird 
in diesem Buch nochmals gelistet» da der Monitor um Routinen 
zum Disketten-Sektor lesen und schreiben erweitert wurde. Für 
genaue Erklärungen des Monitors schlagen Sie bitte im 'Colour- 
Genie-Buch 1' nach, die Erklärung der Diskettenroutinen finden 
ein paar Seiten weiter. 

Nun noch eine Erklärung der einzelnen Monitor-Kommandos: 

1. Hex-Dump 
Eingabe: Hadresse 

Rb der eingegebenen Adresse wird der Speicherinhalt ln hexa¬ 
dezimal gelistet. Jeweils nach Ausgabe einer Zeile wird die 
Tastatur auf folgende Tasten abgefragt: 

<CLEAR> - Listlng abbrechen. 

<Leertaste> - Llsting anhalten, bis <RETURN> gedrückt wird. 
Die einzelnen Zeilen haben folgendes Format: 

Die ersten 4 Zeichen geben die Adresse an. in der das erste 
der 8 Bytes, die in dieser Zeile gellstet werden, steht. 

Dann folgen die 8 Bytes und zum Schluß, etwas abgesetzt, 
folgt die sogenannte Checksum. Dieses Byte ist das nleder-- 
wertlge Byte der Summe aller 8 Bytes und dient als Prüfmög¬ 
lichkeit für die Richtigkeit einer Eingabe. Alle Maschinen¬ 
programme in diesem Buch werden als Hex-Dump mit Prüfsumme 
gelistet, so daß Sie eine einfache Möglichkeit haben, die 
Richtigkeit Ihrer Eingabe zu prüfen. 

2. ASCII-Dump 
Eingabe: Aadresse 

Ab der eingegebenen Adresse wird der Speicherinhalt als 
ASCII-Zeichen gellstet. Jede Zeile beginnt mit der Adresse, 
in der das erste der 24 folgenden Zeichen steht, dann folgen 
die ASCII-Zeichen. Jedes Byte unter 32 dez. wird als 
dargestellt, um die Bildschirmausgabe nicht durch Codes wie 
'Backspace* etc. zu zerstören. Auch beim ASCII-Dump kann die 
Ausgabe durch <CLEAR> abgebrochen und durch <Leertaste> an¬ 
gehalten werden. 

3. Edit hexadezimal 
Eingabe: Eadresse 

Ab der eingegebenen Adresse kann der Speicherinhalt verän¬ 
dert werden. Es wird jeweils die Adresse und der bisherige 
Inhalt dieser Speicherstelle ausgegeben. Sie können dann ein 
neues Byte eingeben, das dann in die Speicherstelle abgelegt 
wird. Wenn Sie statt einer Eingabe nur <RETURN> drücken, 
wird der Editmodus abgebrochen. 
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4. Edit ASCII 
Eingabe: Tadresse 

Ab der eingegebenen Adresse können Sie Texte direkt in den 
Speicher eingeben. Die Adresse wird angegeben, ihr Inhalt 
wird in hexadezimal und ASCII (Code kleiner als 32 » 
ausgegeben. Sie können nun ein Zeichen eingeben, das an die¬ 
ser Speicherstelle gespeichert wird. Auch hier wird die Ein¬ 
gabe abgebrochen, wenn Sie nur <RETURN> drücken. Achtung: Uw 
ein Leerzeichen ln den Speicher einzugeben, müssen Sie fol¬ 
gendes eingeben: Dies liegt daran, daß der INPUT-Befehl 

des Colour-Baslc alle führenden Leerzeichen ignoriert, eine 
Eingabe eines Leerzeichens allein also als Leerstring ange¬ 
sehen wird. 

5. Go to memory 
Eingabe: Gadresse byte 

Es wird zu einem Programm gesprungen, das bei der eingegebe¬ 
nen Adresse beginnt. Wenn Ihr Programm mit einem CALL 0A7FH 
beginnt, so können Sie ein Byte in das L-Register übergeben. 
Wenn Sie Ihr Programm mit einem OP 0A9AH beenden, so wird 
der Inhalt des L-Registers wieder an das Basic übergeben und 
der Monitor gibt es hexadezimal aus. 

6. Hexadezimal Rechnung 
Eingabe: Rzahl1 zahl2 

Zahlt. Zahl2. ihre Summe und ihre Differenz werden in hexa¬ 
dezimal und dezimal ausgegeben. 

7. SYSTEM-Band schreiben 
Eingabe: Wstart ende elnsprung 

Zusätzlich wird noch der Programmname abgefragt. Dieser Name 
darf maximal 6 Zeichen lang sein und das erste Zeichen muß 
ein Buchstabe sein. Dann wird der Bereich von Start bis ende 
im SYSTEM-Band-Format auf Kassette geschrieben. Um dieses 
Band wieder einzulesen, benutzen Sie den SYSTEM-Befehl des 
Colour-Basic und geben Sie den von Ihnen gewählten Programm¬ 
namen an. 

8. Laufwerk selektieren 
Eingabe: Slaufwerksnummer 

Das angegebene Laufwerk (0 <* Laufwerksnummer <* 4) wird 
angesprochen. Alle Diskettenzugriffe sind nun auf dieses 
Laufwerk gerichtet. 

9. Sektor lesen/schreiben 

Eingabe: Dadresse dlsk-relativer-sektor flag 
flag*l: Der angegebene Sektor wird ab der angegebenen 
Adresse ln den Speicher gelesen. 
flag*2: Die ab der angegebenen Adresse im Speicher stehenden 
256 Bytes werden in den angegebenen Sektor 
geschrieben. 
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flag*3: Wie flag*2» der beschriebene Sektor wird aber als 
Inhaltsverzeichnis-Sektor gekennzeichnet. 

Anmerkung: Wenn Sie einen Sektor des Inhaltsverzeichnisses 
einiesen, wird 'Disk error No. 6* ausgegeben. Dies ist kein (!) 
Fehler, sondern Sie können so diese Sektoren erkennen. Wenn Sie 
einen solchen Sektor wieder auf die Diskette schreiben, müssen 
Sie flag«3 angeben, sonst ist das InhaltVerzeichnis nicht mehr 
lesbarIIII 

Wenn Sie statt Hadresse bzw. Aadresse PHadresse bzw. PAadresse 
angeben, geht das Listing parallel auf den Drucker. 


Programmlisting: 


10 CLS:CLEAR1000 
20 PRINT''Command"j : INPUTAS 
30 IFA$-""THEN20 
40 G0SUB670 

50 IFB$-"P"THENPR*1:G0SUB670ELSEPR»0 
60 CS-"HAETGRSDW" 

70 F0RA*1T0LEN(C$):IFB$<>MID$(C$.A.1)THENNEXTA:G0T020 
so ONAGOTO100,200,310,360,430,500.790,810.940 
90 G0T020 
100 G0SUB690 
110 X-2 

120 Z«X:G0SUB750:PRINTZS;" ”::IFPR«ITHENLPRINTZSj" "j 

130 C*0:F0RY-0T07:Z»PEEKCX+Y):C-C+Z:G0SUB750:PRINTRIQHTS(Z$.2):I 
PR«1THENLPRINTRIGHT$(Z$.2) }** : 

140 NEXTY:PRINT" : IFPR-ITHENLPRINT" 

150 Z»C:G0SUB750:PRINTRIGHT$(ZS.2):IFPR*ITHENLPRINTRIGHTS(ZS,2) 

160 X*X+8 

170 KB*PEEK(«cHF840) : IFKB*2THEN20 
180 IFKBO128THEN120 

190 KB»PEEK(«cHF840) : IFKB<> 1THEN190ELSE 120 
200 G0SUB690 
210 X-Z 

220 Z«X:G0SUB750:PRINTZS:" "j:IFPR*ITHENLPRINTZS;" 

230 F0RY»0T023:Z*PEEK(X+Y) 

240 IFZ<32THENZ*ASC(".") 

250 PRINTCHRSCZ);:IFPR*ITHENLPRINTCHRS(Z): 

260 NEXTY:PRINT:IFPR*1THENLPRINT 
270 X«X+24 

280 KB*PEEK(«cHF840) : IFKB*2THEN20 
290 IFKBO128THEN220 

300 KB*PEEK(ScHF840) : I FKBO 1THEN300ELSE220 
310 G0SUB690 
320 X*Z 

330 Z«X:Q0SUB750:PRINTZ$;" - :Z«PEEK(X):G0SUB750:PRINTBIGHTSCZS,2): 

340 AS*"":INPUTAS:IFAS*""THEN20 
350 G0SUB690:P0KEX.ZAND255:X-X+1:G0T0330 
360 G0SUB690 
370 X*Z 

380 Z-X:G0SUB750:PRINTZS;" - ";:2*PEEK(X):G0SUB750:PRINTRIGHTS(ZS.2); 
C": 

390 IFZ<32THENZ-ASC(".") 

400 PRINTCHRSCZ)- ": 
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.410 AS«"": INPUTAS: IFA$*"''THEN20 
420 POKEX.ASCCAS):X«X-H :Q0T0380 
430 G0SUB690 

440 ZI-INTCZ/256)AND255 1 Z2-ZAND255 
450 POKE16526.Z2:P0KE15527.ZI 
460 G0SUB670;IFBS«" "THEN460ELSEA$«B$+AS 
470 G0SUB690:Z«ZAND255 
480 Z«USR(Z) 

490 G0SUB750:PRINTRIGHT$(Z$.2):G0T020 
500 G0SUB690:IFZ>-0THENXl-ZELSEXl-Z+65536 
510 G0SUB670:IFBS«" "THEN510ELSEAS-BS+AS 
520 G0SUB690:IFZ>■0THENX2«ZELSEX2«Z+65536 
530 PRINT" R B R+B R-B" 

540 PRINT" ";:Z»X1:G0SUB750:PRINTZS:" ";:Z»X2:G0SUB750:PRINTZS;" ": 

550 Z»X1+X2:IFZ>65535THENZ«Z-65536 
560 G0SUB750:PRINTZS;" "; 

570 Z«X1-X2:IFZ<0THENZ«Z+65536 
580 G0SUB750:PRINTZS 

590 Z-Xl:G0SUB640:PRINTZS;" ";:Z«X2:G0SUB640:PRINTZS;" "; 

600 Z«X1+X2:IFZ>65535THENZ«Z-65536 
610 G0SUB640:PRINTZS;" "; 

620 2»X1-X2:IF2<0THENZ»Z+65536 

630 G0SUB640:PRINTZS;G0T020 

640 ZS*STRSCZ):ZS«RIGHTSCZS.LENCZS)-1) 

650 IFLEN(ZS)<5THENZS»STRINGSC5-LEN(ZS).32)+ZS 
660 RETURN 

670 BS-"";IFLEN(RS)*OTHENRETURN 

680 BS-LEFTSCRS.1):RS-RIGHTSCRS.LENCRS)-1):RETURN 
690 Z«0 

700 G0SUB670;IFBS<"0"0RBS>"F"THEN740 
710 IFBS>"9"RNDBS<"R"THEN740 

720 IFBS<«"9"THENZl-RSC(B$)-48ELSEZl«RSCCBS)-55 

730 Z»Z»16+Z1:G0T0700 

740 IFZ>32767THENZ«Z-65536 

750 Z1»INTC Z/256)RND255:22*ZRND255:ZS»"" 

760 Z3«INT(Z1/16):G0SUB770:Z3«Z1RND15:G0SUB770:Z3«INTCZ2/16):G0SUB770: 
Z3«Z2RND15 

770 IFZ3<10THENZS«ZS+CHRS(Z3+48)ELSEZS«ZS+CHRS(Z3+55) 

780 RETURN 

790 G0SUB670:IFRSC(BS)<480RRSC(BS)>51THEN20 
800 P0KE1H5R08.RSC(BS)-48:CRLLD0C7:G0T020 
810 G0SUB690:RD-Z:G0SUB690:SN-Z;G0SUB690:FL«Z 
820 RESTORE 

830 RERDRS;IFRS < >"SECI0"THEN830 

840 RS*"";F0RX»1T015:RERDR:RS«RS+CHRS(R):NEXTX:FORX«ITOFL:RERDDR:NEXTX 
850 X-VRRPTRCRS):X«PEEK(X+1)+256»PEEK(X+2):IFX>32767THENX«X-65536 
860 POHE X+1.(RD RND 255):P0KE X+2.(INT(RD/256)RND255) 

870 POKE X+4.(SN RND 255);P0KE X+5.CINT(SN/256)RND255) 

880 POKE X+7.(DR RND 255):POKE X+8.(INTCDR/256)RND255) 

890 DEFUSR1«X:X«USR1(0);IFX«0THEN20 
900 PRINT"Disk Error No.";X:G0T020 
910 DRTR SECIO 

920 DRTR 33.0.0.17.0.0.205.0.0.111.38.0.195.154.10 
930 DRTR-12433.-12417.-12421 
940 RESTORE 
950 WRS-"" 

960 RERDXXS:IF XXSO"SYSTEM" THEN 960 

970 FORX»1TO127 

980 RERDR:WRS-WRS+CHRS(R) 

990 NEXTX:X«VRRPTR(WRS):X«PEEK(X+1)+256»PEEKCX+2):IFX>32767THENX«X-655 
36 

1000 R-X+95:RI«INTC R/256)RND255:R2«RRND255 
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1010 POKEX+66.R2:POKEX+67.RI:POKEX+75.R2:POKEX+76.RI 
1020 GOSUB1220:QOSUB1260:GOSUB1220:GOSUB1260:GOSUB1220 
1030 PRINT'Tilename:"::INPUTPNS 
1040 F0RX1«XT0X+5:P0KEX1.32:NEXTX1 

1050 F0RX1*1T0LEN(PN$):POKEX-1+Xl.RSC(MID$CPNS.XI.1)):NEXTX1 

1060 X»X+6;X1»INTC X/2561RND255:X2«XRND255 

1070 P0KE16526.X2:P0KE16527.X1 

1080 ONERRORGOTOllOO 

1090 DEFUSRO»X 

1100 ONERRORGOTOO 

1110 0NERR0RG0T01130 

1120 CMD"T 

1130 ONERRORGOTOO 

1140 X1«USR(0) 

1150 G0T020 
1160 DRTR SYSTEM 

1170 DRTRO.0.0.0.0.0.32.32.32.32.32.32 

1180 DRTR42.142.64.17.250.255.25.205.63.2.62.85.205.31.2.6.6,126.35.20 
5.31.2.16.249.17.244.255.25.229.221.225.221.94.0.221.86.1.221.110.2.22 
1.102.3 

1190 DRTA175.237.82.35.124.183.40.8.6.0.205.0.0.37.24.244.125.69.183.1 
96,0.0.62.120.205.31.2 

1200 DATR221.126.4.205.31.2.221.126.5.205,31.2.201 

1210 DRTR62.60.205.31.2.120.205.31.2.123.205.31.2.79.122.205.31.2.129. 

79.26.19.205.31.2.129.79.16.247.195.31.2 

1220 G0SUB690 

1230 Z1«INTC2/256)AND255 

1240 Z2*ZRND255 

1250 P0KEX.Z2:P0KEX-fl .ZI :X»X-^2:RETURN 
1260 G0SUB670 
1270 IFBS-" ''THEN1260 
1280 R$*BS+AS:RETURN 
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Ein Graf ikprogramwi in Maschinensprachet Lissa lou-Figuren 

Dieses Programm demonstriert die Möglichkeiten mit 
Maschinensprache schnelle Grafiken anzulegen. 

Es berechnet und zeichnet Lissajou-Figuren in den Grafik¬ 
speicher . 

Da die Figuren aus zwei phasenverschobenen Sinuskurven 
entstehen, wurde im Programm (ab StH7200) eine Tabelle mit 
Sinuswerten, die auf die Grafikauflösung abgestimmt sind 
angelegt. Damit werden lange Berechnungen vermieden. 

Bus der Tabelle werden einfach für jeden Punkt zwei Koordinaten 
entnommen, die einen einstellbaren Bbstand voneinander haben. 

Geben Sie das Programm mit dem weiter vorne gelisteten 
Basic-Monitor ein. Wenn Ihr Colour-Genie nur mit 16 K-Byte 
ausgerüstet ist. müssen Sie vorher bei Mem Size ? mit 28672 
antworten. 

Nachdem Sie es eingegeben haben, sollten Sie das Programm 
zunächst auf Kassette oder Diskette abspeichern. 

Oie Bnfangsadresse ist ltH7000. Endadresse «iH7437 und 
Startadresse ist «iH7090. 

Falls Sie einen Monitor mit Disassembler zur Verfügung haben, 
können Sie die Einzehlheiten des Programmes leicht analysieren, 
da es modular aufgebaut ist. 

Noch ein Wort zur Bedienung: 

Mit den Pfeiltasten können Sie das Frequenzverhältnis 
(Pfeil-oben k Pfeil-unten) bzw. die Geschwindigkeit der 
Phasenverschiebung einstellen CPfeil-links k Pfell-rechts). 


Buf den nächsten drei Seiten finden Sie das Hexlisting des 
Programms mit Prüfsummen. 
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7000 

E5 

D5 

21 

00 

72 

5F 

16 

00 

C2 

7008 

19 

7E 

Dl 

El 

C9 

00 

00 

00 

12 

7010 

4F 

3B 

FF 

7F 

81 

E6 

7F 

C3 

BO 

7018 

00 

70 

00 

00 

00 

00 

00 

00 

70 

7020 

06 

7F 

C5 

78 

CD 

00 

70 

C6 

C5 

7028 

20 

67 

3A 

FE 

7F 

4F 

3A 

FD 

C4 

7030 

7F 

81 

32 

FE 

7F 

CD 

10 

70 

FC 

7038 

6F 

CD 

C6 

3C 

CI 

05 

C2 

22 

E8 

7040 

70 

C9 

00 

00 

00 

00 

00 

00 

39 

7048 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7050 

3A 

FF 

7F 

4F 

3A 

FC 

7F 

81 

3D 

7058 

32 

FF 

7F 

CD 

20 

70 

21 

FD 

2B 

7060 

7F 

3B 

40 

F8 

FE 

08 

20 

01 

18 

7068 

34 

FE 

10 

20 

01 

35 

2B 

FE 

CI 

7070 

40 

20 

01 

34 

FE 

20 

20 

01 

D4 

7078 

35 

CD 

40 

71 

C3 

DO 

70 

00 

B6 

7080 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7088 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7090 

3E 

03 

32 

13 

43 

3E 

02 

32 

3B 

7098 

FC 

7F 

32 

FD 

7F 

21 

00 

48 

92 

70A0 

11 

01 

48 

01 

FF 

OF 

36 

00 

9F 

70FI8 

ED 

BO 

C3 

EB 

70 

00 

00 

00 

BB 

70B0 

E5 

D5 

06 

05 

7E 

12 

23 

C5 

3D 

70B8 

01 

28 

00 

EB 

09 

EB 

CI 

10 

D9 

70C0 

F3 

Dl 

El 

C9 

00 

00 

00 

00 

6E 

70C8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

70D0 

21 

00 

48 

11 

00 

58 

01 

48 

IB 

70D8 

OD 

ED 

BO 

21 

00 

48 

11 

01 

25 

70E0 

48 

01 

48 

OD 

36 

00 

ED 

BO 

71 

70E8 

C3 

50 

70 

3E 

18 

32 

03 

43 

51 

70F0 

3E 

60 

32 

09 

43 

CD 

A9 

38 

CA 

70F8 

C3 

6B 

71 

00 

00 

00 

00 

00 

9F 

7100 

00 

«8 

88 

88 

88 

A8 

20 

20 

28 

7108 

20 

20 

20 

A8 

08 

A8 

80 

A8 

EO 

7110 

Fl8 

08 

28 

08 

A8 

88 

88 

A8 

40 

7118 

08 

08 

A8 

80 

A8 

08 

A8 

A8 

38 

7120 

80 

B8 

88 

A8 

A8 

08 

08 

08 

18 

7128 

08 

B8 

88 

A8 

88 

A8 

A8 

88 

40 

7130 

Fl8 

08 

A8 

00 

00 

00 

00 

00 

58 

7138 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7140 

3A 

FC 

7F 

11 

28 

48 

OE 

64 

A8 

7148 

CD 

80 

71 

OE 

OA 

CD 

80 

71 

94 

7150 

OE 

01 

CD 

80 

71 

3A 

FD 

7F 

83 

7158 

11 

40 

49 

OE 

64 

CD 

80 

71 

CA 

7160 

OE 

OA 

CD 

80 

71 

OE 

01 

CD 

B2 

7168 

80 

71 

C9 

21 

80 

72 

11 

48 

26 

7170 

65 

01 

FF 

01 

ED 

BO 

C3 

50 

16 

7178 

70 

00 

00 

00 

00 

00 

00 

00 

70 

7180 

D5 

21 

01 

71 

11 

05 

00 

19 

97 

7188 

91 

30 

FC 

81 

B7 

ED 

52 

Dl 

05 

7190 

13 

F5 

CD 

BO 

70 

Fl 

C9 

00 

AF 

7198 

00 

00 

00 

00 

00 

00 

00 

00 

00 

71A0 

00 

00 

00 

00 

00 

00 

00 

00 

00 
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71A8 00 00 00 00 00 00 00 00 00 
71B0 00 00 00 00 00 00 00 00 00 
71B8 00 00 00 00 00 00 00 00 00 
7ICO 00 00 00 00 00 00 00 00 00 
71C8 00 00 00 00 00 00 00 00 00 
71D0 00 00 00 00 00 00 00 00 00 
71D8 00 00 00 00 00 00 00 00 00 
71E0 00 00 00 00 00 00 00 00 00 
71E8 00 00 00 00 00 00 00 00 00 
71F0 00 00 00 00 00 00 00 00 00 
71F8 00 00 00 00 00 00 00 00 00 
7200 30 31 33 34 36 37 38 3B A7 
7208 3B 3D 3E 3F 41 42 43 44 FF 
7210 45 46 47 48 49 4A 4B 4C 44 
7218 4C 4D 4D 4E 4E 4E 4E 4E 6C 
7220 4F 4E 4E 4E 4E 4E 40 40 6F 
7228 4C 4C 4B 4A 49 48 47 46 4B 
7230 45 44 43 42 41 3F 3E 30 09 
7238 3B 3A 38 37 36 34 33 31 B2 
7240 30 2E 2C 2B 29 28 27 25 52 
7248 24 22 21 20 lE 10 IC IB F9 
7250 IR 19 18 17 16 15 14 13 B4 
7258 13 12 12 11 11 11 11 11 8C 
7260 11 11 11 11 11 11 12 12 8A 
7268 13 13 14 15 16 17 18 19 RO 
7270 IR IB IC 10 lE 20 21 22 EF 
7278 24 25 27 28 29 2B 2C 2E 46 
7280 00 00 00 00 00 14 00 01 15 
7288 55 40 05 55 00 05 55 00 49 
7290 01 55 00 15 55 50 05 55 6R 
7298 00 50 05 00 01 54 00 40 ER 
72R0 15 00 15 00 15 00 00 00 3F 
72R8 00 00 00 00 00 14 00 01 15 
72B0 55 40 15 55 40 15 55 40 E9 
72B8 05 55 40 15 55 50 15 55 BE 
72C0 40 50 05 00 04 01 01 40 DB 
72C8 51 40 51 40 51 40 00 00 B3 
72D0 01 00 00 01 00 14 00 00 16 
72D8 14 00 54 01 40 54 01 40 3E 
72E0 15 01 50 14 01 50 15 05 E5 
72E8 40 50 05 00 04 51 05 40 2F 
72F0 51 40 51 40 01 40 00 00 63 
72F8 04 40 00 04 40 14 00 00 9C 
7300 14 00 54 00 00 54 00 00 BC 
7308 14 00 50 00 00 50 14 01 C9 
7310 40 50 05 00 04 41 01 40 IB 
7318 15 40 15 00 05 00 00 00 6F 
7320 04 10 00 10 40 14 00 00 78 
7328 14 00 15 55 00 15 55 00 E8 
7330 15 55 50 00 00 50 14 01 IF 
7338 40 50 05 00 04 51 01 40 2B 
7340 01 40 51 40 01 40 00 00 13 
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7348 

04 

04 

00 

40 

40 

14 

00 

00 

9C 

7350 

14 

00 

05 

55 

40 

05 

55 

40 

48 

7358 

15 

55 

50 

00 

00 

50 

14 

01 

IF 

7360 

40 

50 

05 

00 

04 

01 

01 

40 

DB 

7368 

51 

40 

51 

40 

51 

40 

00 

00 

B3 

7370 

01 

01 

01 

01 

00 

14 

00 

00 

18 

7378 

14 

00 

00 

05 

50 

00 

01 

50 

BA 

7380 

14 

00 

50 

00 

00 

50 

14 

01 

C9 

7388 

40 

50 

05 

00 

01 

54 

05 

50 

3F 

7390 

15 

00 

15 

00 

15 

00 

00 

00 

3F 

7398 

01 

00 

44 

01 

00 

14 

00 

00 

5A 

73R0 

14 

00 

00 

01 

50 

00 

00 

50 

B5 

73A8 

14 

00 

50 

00 

00 

50 

14 

01 

C9 

73B0 

40 

50 

05 

00 

04 

00 

00 

00 

99 

73B8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

73C0 

00 

40 

10 

04 

00 

14 

00 

00 

68 

73C8 

14 

00 

14 

05 

50 

14 

01 

50 

E2 

73D0 

14 

00 

50 

14 

01 

50 

15 

05 

E3 

7308 

40 

54 

15 

00 

05 

55 

55 

55 

AD 

73E0 

55 

55 

55 

55 

55 

40 

00 

00 

E9 

73E8 

00 

40 

44 

04 

00 

15 

55 

41 

33 

73F0 

55 

40 

15 

55 

40 

15 

55 

40 

E9 

73F8 

14 

00 

50 

15 

55 

50 

15 

55 

88 

7400 

40 

55 

55 

00 

00 

00 

00 

00 

EA 

7408 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7410 

00 

15 

01 

50 

00 

15 

55 

41 

11 

7418 

55 

40 

05 

55 

00 

05 

55 

00 

49 

7420 

14 

00 

50 

05 

55 

40 

05 

55 

58 

7428 

00 

15 

54 

00 

05 

55 

55 

55 

6D 

7430 

55 

55 

55 

55 

55 

40 

00 

00 

E9 
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'ZALAGA' ein Spiel Programm in Maschinensprache 
fuer das Colour-Genie mit ISKByte RAM. 


ZALAGA ist ein Action-Spiel in Maschinensprache, das 
auf Geschwindigkeit ausgelegt ist. 

Es soll einmal demonstrieren, wo die wahren Vorteile 
der Maschinenprogrammierung liegen. 

Sie geben das Programm am guenstigsten mit dem weiter 
vorne gelisteten Basic-Monitor ein oder mit einem 
anderen Maschinensprachemonitor. Wenn Ihr Geraet nur 
mit ISKByte RAM ausgeruestet ist, so geben Sie vorher 
bei MEM SIZE? 28672 ein und laden dann den Monitor. 

Das Programm besteht aus zwei grossen Bioecken: 

Das eigentllcAe Programm belegt den Speicher von 
7000H bis 75FFH. Es ist wiederum in kleinere 
Unterprogramme eingeteilt, wie aus der Dokumentation 
hervorgeht. 

Der zweite Teil sind Tabellen, Anfangsgrafik und die 
Werte fuer die definierbaren Zeichen. 

Dieser Block beginnt bei 7800H. Sie haben also noch 
genuegend freien Speicher um das Programm um- oder 
auszubauen. 

Die Luecken zwischen den einzelnen Unterprogrammen 
erlauben kleine Aenderungen auch innerhalb des ersten 
Programmteils. Auf jedenfall sollten Sie zuerst eine 
Original-Version auf Kassette oder Diskette sichern. 

Also speichern Sie von 7000H bis 7FFFH mit der Start¬ 
adresse 75B0H. 

Noch einige Anmerkungen ueber den Aufbau der Tabellen. 

Die Tabelle der Positionen der Feinde besteht aus 128 
Bytes. Fuer jedes der 32 Objekte stehen 4 Bytes zur 
Verfuegung. Die ersten beiden Bytes entsprechen der 
Position des Feindes im Bildschirmspeicher (4400H-47E7H). 

Ist diese Position gleich 0, so bedeutet dies, dass der 
jeweilige Feind schon abgeschossen wurde. 

Das 3. Byte beinhaltet das LSB der Y-Richtung des Feindes. 

Es kann die Werte 00H,28H oder D8H annehmen. OOH heisst 
keine Y-Richtung 28H entspricht 40D also 40 Zeichen pro 
Bewegung mehr (eine Bildschirmzeile) und D8H entspricht 
-40D also eine Zeile nach oben. 

Das dritte Byte dient als Zaehler fuer die Bewegungen eines 
Feindes nach unten. Nach 24 Bewegungen (da die erste Zeile 
nicht benutzt wird) ist ein Feind wieder ln seiner Ausgangs¬ 
zeile. 

Die X-Rlchtung ist fuer alle Feinde immer gleich. 

Sobald ein Feind am linken oder rechten Bildschirmrand 
ist, wird die X-Richtung fuer alle umgekehrt.. 

Die Tabelle wird, da sie veraendert werden muss, zu Beginn 
jeder Runde von 7900H nach 7880H kopiert. 

Zwei weitere Tabellen sind nach dem gleichen Prinzip aufgebaut. 
Die Tabellen der Schuesse und die der Explosionen. 

Die Schusstabelle besteht aus 16 Bytes, jeweils LSB und MSB 
der Schussposition im Bildschirmspeicher. Sie wird ab 7870H 
angelegt. Die ExplosIonstabelle besteht aus 24 Bytes ab 
7850H. Sie hat zusaetzlich zu der Position der Explosion noch 
ein Byte als Zaehler fuer die drei Phasen der Explosion. 

Die Anfangsgrafik beginnt bei 7A00H und belegt 1024 Byte. 

Die definierbaren Zeichen beginnen bei 7E00 und belegen 
512 Bytes. Sie sind zusaetzlich noch einmal vergroessert im 
Anschluss an das Listing ausgedruckt. 

Die ersten 32 Zeichen von 128 bis 159 sind fuer 8 Feindtypen 
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in je zwei Bewegungszustaenden definiert. 

Danach folgen die Zeichen fuer Schiff,Schuesse, Explosionen usw. 
Doch nun wollen wir Sie nicht weiter vom tippen abhalten. 

Wir wuenschen Ihnen viel QluecK beim Kampf gegen die Zalonen. 
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7ICO 3E 08 D3 F8 DB F9 B7 28 C4 
71C8 01 3D D3 F9 21 28 44 11 A8 
71D0 28 00 06 16 7E FE 20 20 00 
71D8 05 19 10 F8 18 06 21 01 66 
71E0 00 22 08 42 21 4F 44 06 26 
71E8 16 7E FE 20 20 04 19 10 FF 
71F0 F8 C9 21 FF FF 22 08 42 4C 
71F8 C9 00 00 00 00 00 00 00 C9 
7200 3A OA 42 3C 32 OA 42 CD OD 
7208 00 71 CD CO 71 CD 38 74 E8 
7210 3A 40 F8 E6 20 28 01 2B CC 
7218 3A 40 F8 E6 40 28 01 23 E4 
7220 7D FE 98 20 01 23 FE BC 11 
7228 20 01 2B 22 06 42 CD 50 D3 
7230 74 3A 40 F8 E6 80 28 03 77 
7238 CD 70 72 CD 80 73 3A 40 E9 
7240 F8 FE 06 CA 00 70 3A OB 7B 
7248 42 B7 C2 00 72 C3 80 74 E4 
7250 00 00 00 00 00 00 00 00 00 
7258 00 00 00 00 00 00 00 00 00 
7260 00 00 00 00 00 00 00 00 00 
7268 00 00 00 00 00 00 00 00 00 
7270 21 70 78 7E 23 B6 28 07 8F 
7278 23 7D FE 80 20 F5 C9 2B 27 
7280 EB 2A 06 42 01 D9 FF 09 3F 
7288 EB 73 23 72 EB 36 A6 11 CB 
7290 00 AC 19 36 03 C9 00 00 C7 
7298 E5 FD 21 50 78 FD 6E 00 36 
72A0 FD 66 01 7C B5 28 12 FD CC 
72A8 23 FD 23 FD 23 FD 7D FE DB 
72B0 68 C2 9D 72 E1 21 00 00 3B 
72B8 C9 El 7E E6 01 28 01 2B 63 
72C0 FD 75 00 FD 74 01 FD 36 17 
72C8 02 00 EB FD 21 80 78 FD 00 
72D0 6E 00 FD 66 01 DF 28 OE E7 
72D8 01 04 00 FD 09 FD 7D B7 3C 
72E0 20 ED 21 00 00 C9 36 20 4D 
72E8 23 36 20 21 00 00 FD 75 OC 
72F0 00 FD 74 01 2A 02 42 3A lA 
72F8 00 42 07 3C 5F 16 00 19 13 
7300 22 02 42 3A OB 42 3D 32 5C 
7308 OB 42 21 00 00 3E 08 D3 87 
7310 F8 3E OF D3 F9 C9 00 00 DA 
7318 00 00 00 00 00 00 00 00 00 
7320 3E 30 3C 09 38 FC 3D ED 11 
7328 42 12 13 C9 D5 ED 5B OC 59 
7330 42 DF 38 lA EB 01 DO 07 36 
7338 09 22 OC 42 EB 11 E4 79 D2 
7340 lA FE BO 20 06 13 7B FE 7A 
7348 EE 20 F5 3E BO 12 Dl 01 D5 
7350 FO D8 CD 20 73 01 18 FC 3D 
7358 CD 20 73 01 9C FF CD 20 E9 
7360 73 01 F6 FF CD 20 73 01 CA 
7368 FF FF CD 20 73 21 D8 79 DO 
7370 11 00 44 01 28 00 ED BO IB 
7378 C9 00 00 00 00 00 00 00 C9 
7380 DD 21 70 78 DD 6E 00 DD OE 
7388 66 01 7C B5 28 36 7E FE 72 
7390 AO 38 lA 36 20 11 D8 FF 30 
7398 19 11 28 44 DF 30 05 21 CB 
73A0 00 00 18 14 7E FE 80 38 60 
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73R8 07 FE AO 30 03 CD 98 72 AF 
73B0 3A OA 42 E6 01 C6 A6 77 50 
73B8 DD 75 00 DD 74 01 11 00 B5 
73C0 AC 19 36 09 DD 23 DD 23 04 
73C8 DD 7D FE 80 C2 84 73 DD 6E 
73D0 21 50 78 DD 6E 00 DD 66 77 
73D8 01 7C B5 28 28 DD 7E 02 DF 
73E0 07 C6 AA FE BO 20 08 36 83 
73E8 20 23 36 20 21 00 00 DD 97 
73F0 75 00 DD 74 01 77 23 3C 9D 
73F8 77 11 FF AB 19 D6 09 77 Al 
7400 23 77 DD 34 02 DD 23 DD 8A 
7408 23 DD 23 DD 7D FE 68 C2 A5 
7410 D3 73 2A 02 42 11 DE 79 IC 
7418 CD 2C 73 2A 02 42 ED 5B 22 
7420 04 42 DF 38 09 22 04 42 CE 
7428 11 FB 79 CD 4F 73 C9 00 DD 
7430 00 00 00 00 00 00 00 00 00 
7438 2A 06 42 06 03 7E FE AO 97 
7440 38 09 36 20 23 10 F6 2B EB 
7448 2B 2B C9 Fl C3 30 75 00 78 
7450 06 AO 3A OA 42 E6 01 28 3B 
7458 02 06 A3 78 77 23 3C 77 70 
7460 23 3C 77 11 FE AB 19 36 DF 
7468 06 23 36 02 23 36 06 C9 89 
7470 00 00 00 00 00 00 00 00 00 
7478 00 00 00 00 00 00 00 00 00 
7480 21 00 44 11 01 44 01 FF BB 
7488 03 36 20 ED BO 21 D8 79 68 
7490 11 00 44 01 28 00 ED BO IB 
7498 21 00 78 11 00 FO 01 28 C3 
74A0 00 ED BO 3A 01 42 3C E6 3C 
74A8 07 32 01 42 21 AB 47 22 Bl 
74B0 06 42 21 00 79 11 80 78 EB 
74B8 01 80 00 ED BO 21 01 00 40 
74C0 22 08 42 21 50 78 11 51 B7 
74C8 78 01 2F 00 36 00 ED BO 7B 
74D0 3E 20 32 OB 42 3A 00 42 59 
74D8 3C 32 00 42 21 28 78 11 82 
74E0 3C 46 01 10 00 ED BO 2A 5A 
74E8 06 42 CD 50 74 3E 18 32 61 
74F0 89 71 06 OC C5 CD 00 71 OF 
74F8 CD CO 71 21 3C F2 11 3D 9B 
7500 F2 01 OF 00 ED 5F 77 ED B2 
7508 BO 01 00 18 CD 60 00 CI B7 
7510 10 E2 3E 20 32 89 71 21 9D 
7518 3C 46 11 3D 46 01 OF 00 26 
7520 77 ED BO C3 00 72 00 00 49 
7528 00 00 00 00 00 00 00 00 00 
7530 06 IF 3E 07 D3 F8 3E E7 5A 
7538 D3 F9 C5 3E 09 D3 F8 78 IB 
7540 E6 OF D3 F9 3E 06 D3 F8 DO 
7548 3E IF 90 D3 F9 3A OA 42 3F 
7550 3C 32 OA 42 CD 00 71 CD C5 
7558 CO 71 CD 80 73 2A 50 78 E3 
7560 7C B5 20 18 2A 06 42 ED C8 
7568 5F E6 01 28 01 23 22 50 04 
7570 78 32 52 78 3E 08 D3 F8 85 
7578 3E OF D3 F9 C1 10 BB 21 C6 
7580 EE 79 7E FE BO 28 09 2B EF 
7588 7D FE E3 20 F5 C3 AO 75 4B 
7590 36 20 3A 01 42 3D 32 01 43 
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7598 42 C3 80 74 00 00 00 00 F9 
75A0 21 FA 79 11 60 7D 01 06 89 
75A8 00 ED BO C3 00 70 00 00 DO 
75B0 21 00 00 22 04 42 31 00 AA 
75B8 60 C3 00 70 00 00 00 00 93 
75C0 00 00 00 00 00 00 00 00 00 
75C8 00 00 00 00 00 00 00 00 00 
75D0 00 00 00 00 00 00 00 00 00 
75D8 00 00 00 00 00 00 00 00 00 
75E0 00 00 00 00 00 00 00 00 00 
75E8 00 00 00 00 00 00 00 00 00 
75F0 00 00 00 00 00 00 00 00 00 
75F8 00 00 00 00 00 00 00 00 00 
7600 00 00 00 00 00 00 00 00 00 
7608 00 00 00 00 00 00 00 00 00 
7610 00 00 00 00 00 00 00 00 00 
7618 00 00 00 00 00 00 00 00 00 


Nun folgen die Tabellen und AnfangsgrafiK 

7800 02 02 02 02 02 03 03 03 13 
7808 03 03 03 06 06 06 06 06 27 
7810 06 06 06 06 06 06 06 02 2C 
7818 02 02 02 02 02 02 02 02 10 
7820 02 03 03 03 03 03 03 03 17 
7828 2A 2A 20 47 45 54 20 52 C6 
7830 45 41 44 59 20 2A 2A 20 B7 
7838 00 00 00 00 00 00 00 00 00 
7840 00 00 00 00 00 00 00 00 00 
7848 00 00 00 00 00 00 00 00 00 
7850 00 00 00 00 00 00 00 00 00 
7858 00 00 00 00 00 00 00 00 00 
7860 00 00 00 00 00 00 00 00 00 
7868 00 00 00 00 00 00 00 00 00 
7870 00 00 00 00 00 00 00 00 00 
7878 00 00 00 00 00 00 00 00 00 
7880 00 00 00 00 00 00 00 00 00 
7888 00 00 00 00 00 00 00 00 00 
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78F8 00 00 00 00 00 00 00 00 00 
7900 50 44 00 00 54 44 00 00 2C 
7908 58 44 00 00 5C 44 00 00 3C 
7910 60 44 00 00 64 44 00 00 4C 
7918 68 44 00 00 6C 44 00 00 5C 
7920 A2 44 00 00 A6 44 00 00 DO 
7928 AA 44 00 00 AE 44 00 00 EO 
7930 B2 44 00 00 B6 44 00 00 FO 
7938 BA 44 00 00 F4 44 00 00 36 
7940 F8 44 00 00 FC 44 00 00 7C 
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7B30 20 20 20 20 20 20 20 20 00 
7B38 20 20 20 20 20 20 20 20 00 
7B40 20 20 44 69 65 20 5A 61 2D 
7B48 6C 6F 6E 65 6E 20 61 75 12 
7B50 73 20 64 65 72 20 47 61 96 
7B58 6C 61 78 69 65 20 4E 47 C8 
7B60 43 2D 35 34 37 20 20 20 70 
7B68 20 20 67 72 65 69 66 65 B2 
7B70 6E 20 64 69 65 20 45 72 97 
7B78 64 65 20 6D 69 74 20 69 BC 
7B80 68 72 65 72 20 67 65 73 10 
7B88 61 6D 74 65 6E 20 20 20 75 
7B90 20 20 46 6C 6F 74 74 65 AE 
7B98 20 61 6E 2E 20 53 69 65 5E 
7BA0 20 73 69 6E 64 20 6D 69 C4 
7BA8 74 20 64 65 6D 20 6C 65 BB 
7BB0 74 7A 74 65 6E 20 20 20 95 
7BB8 20 20 46 6C 61 67 67 73 94 
7BC0 63 68 69 66 66 20 64 65 E9 
7BC8 72 20 52 61 75 6D 2D 42 96 
7BD0 61 73 69 73 20 48 61 6E E7 
7BD8 67 65 6C 61 72 20 20 20 6B 
7BE0 20 20 67 65 66 6C 6F 68 B5 
7BE8 65 6E 20 75 6E 64 20 6D C7 
7BF0 75 65 73 73 65 6E 20 73 26 
7BF8 69 63 68 20 64 75 72 63 02 
7C00 68 20 64 69 65 20 20 20 lA 
7C08 20 20 20 20 20 66 65 69 D4 
7C10 6E 64 6C 69 63 68 65 6E 45 
7C18 20 52 65 69 68 65 6E 20 9B 
7C20 6B 61 65 6D 70 66 65 6E 47 
7C28 2E 20 20 20 20 20 20 20 OE 
7C30 20 20 20 20 20 20 20 20 00 
7C38 20 20 20 20 20 20 20 20 00 
7C40 20 20 20 20 20 20 20 20 00 
7C48 20 20 20 20 20 20 20 20 00 
7C50 20 20 20 20 20 20 20 20 00 
7C58 20 20 44 69 65 20 53 74 39 
7C60 65 75 65 72 75 6E 67 20 IB 
7C68 64 65 73 20 53 63 68 69 E3 
7C70 66 66 73 20 67 65 73 63 01 
7C78 68 69 65 68 74 20 20 20 72 
7C80 20 20 6D 69 74 20 64 65 73 
7C88 6E 20 50 66 65 69 6C 74 F2 
7C90 61 73 74 65 6E 2E 20 49 B2 
7C98 68 72 20 4C 61 73 65 72 Fl 
7CA0 20 77 69 72 64 20 20 20 36 
7CA8 20 20 20 20 20 60 69 74 EA 
7C60 20 64 65 72 20 4C 65 65 91 
7CB8 72 74 61 73 74 65 20 61 14 
7CC0 75 73 67 65 6C 6F 65 73 67 
7CC8 74 2E 20 20 20 20 20 20 62 
7CD0 20 20 20 20 20 20 20 20 00 
7CD8 20 20 20 20 20 20 20 20 00 
7CE0 20 20 20 20 20 20 20 20 00 
7CE8 20 20 20 20 20 20 20 20 00 
7CF0 20 20 20 20 20 20 20 20 00 
7CF8 20 20 DF D3 D3 03 D3 D3 3E 
7D00 03 03 03 03 03 03 03 03 98 
7008 03 03 03 03 03 03 03 03 98 
7010 03 03 03 03 03 03 03 03 98 
7018 03 03 03 03 E3 20 20 20 8F 


69 



7D20 

20 

20 

CF 

47 

45 

53 

43 

48 

79 

7D28 

57 

49 

4E 

44 

49 

47 

4B 

45 

52 

7D30 

49 

54 

20 

28 

30 

2E 

2E 

2E 

9F 

7D38 

39 

29 

20 

20 

35 

20 

20 

20 

37 

7D40 

20 

20 

20 

20 

DB 

20 

20 

20 

BB 

7D48 

20 

20 

CF 

42 

45 

53 

54 

45 

82 

7D50 

53 

20 

45 

52 

47 

45 

42 

4E 

26 

7D58 

49 

53 

20 

20 

20 

20 

20 

20 

5C 

7D60 

20 

30 

30 

30 

30 

30 

20 

20 

50 

7D68 

20 

20 

20 

20 

DB 

20 

20 

20 

BB 

7D70 

20 

20 

CF 

44 

72 

75 

65 

63 

02 

7D78 

6B 

65 

6E 

20 

53 

69 

65 

20 

9F 

7D80 

3C 

53 

3E 

20 

75 

6D 

20 

7A 

69 

7D88 

75 

20 

62 

65 

67 

69 

6E 

6E 

08 

7D90 

65 

6E 

20 

21 

DB 

20 

20 

20 

4F 

7D98 

20 

20 

E3 

DA 

DA 

DA 

DA 

DA 

65 

7DA0 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DO 

7DA8 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DO 

7DB0 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DA 

DO 

7DB8 

DA 

DA 

DA 

DA 

DF 

20 

20 

20 

A7 

7DC0 

20 

20 

20 

20 

20 

20 

20 

20 

00 

7DC8 

20 

20 

20 

20 

20 

20 

20 

20 

00 

7DD0 

20 

20 

20 

20 

20 

20 

20 

20 

00 

7DD8 

20 

20 

20 

20 

20 

20 

20 

20 

00 

7DE0 

20 

20 

20 

20 

20 

20 

20 

20 

00 

7DE8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7DF0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7DF8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

7E00 

02 

02 

07 

OE 

IC 

3F 

OC 

18 

98 

7E08 

40 

40 

EO 

70 

38 

FC 

30 

18 

4C 

7E10 

04 

02 

07 

OE 

IC 

3F 

OC 

06 

88 

7E18 

20 

40 

EO 

70 

38 

FC 

30 

60 

74 

7E20 

OF 

19 

39 

IF 

OF 

OA 

14 

OA 

B7 

7E28 

FO 

98 

9C 

F8 

FO 

50 

28 

50 

D4 

7E30 

OF 

19 

39 

IF 

OF 

OA 

14 

28 

D5 

7E38 

FO 

98 

9C 

F8 

FO 

50 

28 

14 

98 

7E40 

07 

IF 

29 

29 

IF 

OF 

03 

01 

AA 

7E48 

EO 

F8 

94 

94 

F8 

FO 

CO 

80 

28 

7E50 

07 

IF 

32 

32 

IF 

OF 

03 

01 

BC 

7E58 

EO 

F8 

4C 

4C 

F8 

FO 

CO 

80 

98 

7E60 

01 

02 

04 

F9 

7F 

2B 

01 

00 

AB 

7E68 

80 

40 

20 

9F 

FE 

D4 

80 

00 

Dl 

7E70 

01 

03 

04 

09 

3F 

6B 

Al 

00 

5C 

7E78 

80 

CO 

20 

90 

FC 

D6 

85 

00 

47 

7E80 

00 

82 

42 

31 

2E 

4A 

11 

00 

7E 

7E88 

00 

41 

42 

8C 

74 

52 

88 

00 

5D 

7E90 

00 

02 

02 

01 

FE 

2A 

09 

00 

36 

7E98 

00 

40 

40 

80 

7F 

54 

90 

00 

63 

7EA0 

00 

01 

05 

04 

08 

08 

05 

05 

24 

7EFI8 

50 

50 

08 

08 

10 

50 

40 

00 

50 

7EB0^ 

05 

05 

08 

08 

04 

05 

01 

00 

24 

7EB8 

00 

40 

50 

10 

08 

08 

50 

50 

50 

7EC0 

00 

OD 

13 

23 

45 

48 

30 

00 

00 

7EC8 

00 

BO 

C8 

C4 

A2 

12 

OC 

00 

FC 

7ED0 

00 

7D 

83 

83 

7D 

00 

00 

00 

00 

7ED8 

00 

BE 

CI 

CI 

BE 

00 

00 

00 

FE 

7EE0 

00 

3C 

24 

27 

27 

24 

3C 

00 

OE 

7EE8 

00 

3C 

24 

E4 

E4 

24 

3C 

00 

88 

7EF0 

00 

OF 

09 

39 

39 

09 

OF 

00 

A2 

7EF8 

00 

FO 

90 

9C 

9C 

90 

FO 

00 

38 

7F00 

00 

04 

OE 

IB 

IB 

OE 

04 

00 

5A 
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7F08 

18 

18 

3C 

DB 

99 

7E 

7E 

24 

00 

7F10 

00 

20 

70 

D8 

D8 

70 

20 

00 

DO 

7F18 

00 

04 

OE 

15 

15 

OE 

04 

00 

4E 

7F20 

18 

18 

3C 

E7 

C3 

7E 

7E 

24 

36 

7F28 

00 

20 

70 

Fl8 

A8 

70 

20 

00 

70 

7F30 

10 

08 

10 

08 

10 

00 

00 

00 

40 

7F38 

00 

00 

00 

08 

10 

08 

10 

08 

38 

7F40 

18 

18 

18 

18 

00 

00 

00 

00 

60 

7F48 

00 

00 

00 

00 

18 

18 

18 

18 

60 

7F50 

11 

OC 

03 

02 

OF 

10 

01 

06 

48 

7F58 

08 

BO 

40 

FC 

B2 

EO 

18 

04 

A2 

7F60 

01 

14 

01 

55 

02 

24 

01 

08 

9A 

7F68 

10 

80 

24 

40 

AB 

80 

28 

80 

C6 

7F70 

00 

00 

04 

00 

12 

00 

04 

00 

lA 

7F78 

00 

90 

00 

40 

00 

08 

40 

00 

18 

7F80 

10 

10 

D6 

FE 

D6 

10 

00 

00 

DA 

7F88 

04 

04 

4C 

54 

64 

44 

40 

40 

DO 

7F90 

08 

10 

30 

10 

10 

18 

10 

20 

BO 

7F98 

18 

20 

40 

48 

58 

48 

50 

20 

DO 

7FFI0 

04 

04 

4C 

54 

64 

44 

40 

40 

DO 

7FA8 

00 

00 

00 

08 

10 

20 

00 

00 

38 

7FB0 

18 

20 

40 

58 

34 

04 

08 

30 

40 

7FB8 

18 

20 

40 

40 

40 

44 

48 

30 

B4 

7FC0 

18 

24 

44 

44 

44 

44 

48 

30 

C4 

7FC8 

18 

24 

44 

48 

50 

68 

44 

40 

04 

7FD0 

OC 

10 

20 

28 

30 

24 

28 

30 

10 

7FD8 

FF 

00 

E3 

14 

14 

14 

14 

14 

46 

7FE0 

C7 

08 

93 

24 

48 

4F 

40 

3F 

9C 

7FE8 

F3 

04 

E4 

02 

01 

BF 

00 

BF 

5C 

7FF0 

FC 

00 

F8 

40 

20 

AO 

20 

CO 

D4 

7FF8 

00 

00 

00 

00 

00 

00 

00 

00 

00 
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7000 

21007E 

LD 

HL.7E00H 

7003 

1100F4 

LD 

DE.0F400H 

7006 

010002 

LD 

BC.0200H 

7009 

EDBO 

LDIR 


700B 

3E01 

LD 

A.OIH 

700D 

CDB03F 

CALL 

3FB0H 

7010 

CDF070 

CALL 

70F0H 

7013 

21007A 

LD 

HL.7A00H 

7016 

110044 

LD 

DE.4400H 

7019 

010004 

LD 

BC.0400H 

701C 

EDBO 

LDIR 


701E 

2100F0 

LD 

HL.OFOOOH 

7021 

1lOlFO 

LD 

DE.OFOOIH 

7024 

01FF03 

LD 

BC.03FFH 

7027 

3606 

LD 

(HD .06H 

7029 

EDBO 

LDIR 


702B 

CDF014 

CALL 

14F0H 

702E 

2AAA40 

LD 

HL.(40AAH 

7031 

7C 

LD 

A.H 

7032 

E601 

AND 

OIH 

7034 

C644 

ADD 

A,44H 

7036 

67 

LD 

H.A 

7037 

FE44 

CP 

44H 

7039 

2805 

OR 

Z.$+07H 

703B 

7D 

LD 

A.L 

703C 

FE18 

CP 

18H 

703E 

30EB 

3R 

I 

CO 

1 

ü 

z 

7040 

7E 

LD 

A.CHL) 

7041 

FE7F 

CP 

7FH 

7043 

280FI 

OR 

2.$+0CH 

7045 

367F 

LD 

(HL).7FH 

7047 

1100f=lC 

LD 

DE.OACOOH 

704A 

19 

ADD 

HL. DE 

704B 

3602 

LD 

(HL).02H 

704D 

1810 

OR 

$+12H 

704F 

E5 

PUSH 

HL 

7050 

Dl 

POP 

DE 

7051 

EB 

EX 

DE. HL 

7052 

010036 

LD 

BC.3600H 

7055 

09 

ADD 

HL.BC 

7056 

7E 

LD 

A. (HL) 

7057 

12 

LD 

(DE) .A 

7058 

EB 

EX 

DE. HL 

7059 

IIOOAC 

LD 

DE.OACOOH 

705C 

19 

ADD 

HL. DE 

705D 

3605 

LD 

(HL).05H 

705F 

CD2B00 

CALL 

002BH 

7062 

FE30 

CP 

30H 

7064 

DA2B70 

OP 

C.702BH 

7067 

FE3Fi 

CP 

3AH 

7069 

3808 

OR 

C.S+OAH 

706B 

FE53 

CP 

53H 

706D 

C22B70 

OP 

NZ.702BH 

7070 

C38070 

OP 

7080H 

7073 

323C47 

LD 

(473CH).A 

7076 

D630 

SUB 

30H 

7078 

320042 

LD 

(4200H).A 

707B 

C32B70 

OP 

702BH 


; Z«ich«ntati von 7E00H 
; nach P400H in dan Zaichanspaichar 
; varscbiaban. 

i 

; CHAR 2 einachaltan. Argunant 
; in Akku ist ua aint varnindart. 

; Untarprg.: Soundoff und L6R 
; Adrassa dar Anfangsgrafik 
; Adrassa Bildschirnanfang 
; Anzahl dar Bytas 
; Varscbiaban. 

; Parbspaichar 
; Parbspaichar 
; Laanga -1 

; arstas Byta mit 06H balagan 
; 1. Byta auf 2. us«. schiaban. 

; Untarprg.: Zufallszahl ariaugan. 

) ; Zahl in HL holan. 

; MSB in Akku 
; Akku wird OOH odar OIH 
; Akku wird 44H odar 45H 
: Zuruack in MSB. (HL « 4400H- 45PPH) 

; Hann MSB « 44H, 

; dann nach 7040H 
i LSB in Akku 
; Rann >« 18H 

; Dann naua Zahl arzaugan. 

; HL Zaigar auf Bildschiradrassa 
i Zaichan auf HL « 7PH 7 
; Rann ja dann nach 704PH 
; sonst 7PH auf HL abspaicharn 
; Offsat zun Parbspaichar 
; zu HL addiaran 
; 02H auf HL abspaicharn (rot) 

; Raitar bai 705PH 
; HL auf dan Stack 
; DB zuruack 
; vartauschan 
; Offsat zur Anfangsgrafik 
; zu HL addiaran 

; Originalzaicban dar Anfangsgrafik 
; in dan Bildschirnspaichar spaicharn 
; Bildschirnadrassa zuruack nach HL 
; Offsat zun Parbspaichar 
: zu HL addiaran 

i 02H auf HL abspaicharn (gruan) 
i Untarprg.: 6BTCHR (Tastaturabfrage) 
i < 30H ASC("0") 

; Rann ja, dann Sprung zur Schleife 
; < 3AH ASCC:") 

; Rann ja,dann zu 7073H 
; * 53H ASCi^S") 

; Rann nicht, dann zur Schlaiff 
i Sonst Spiel starten 
; gedruackta Zahl in Bildschirn anzaigen 
; - 30H ergibt einen Hart von 00H-09H 
; in Variable fuar Level abspaicharn 
; und zuruack zur Schleife. 
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; »»* STARTEM DES SPIELS •*» 


7080 

210000 

LD 

HL,OOOOH 

Hl tmmm «it Stsrtpunktiahl balagan 

7083 

220242 

LD 

(4202H).HL 

in Variabl« fuar Punktiahl abapaicharn 

7086 

3E07 

LD 

B.07H 

Zaahlar fuar Paindtyp auf 7 aatitan 

7088 

320142 

LD 

(4201H) ,f\ 

und abapaicharn. 

708B 

3A3C47 

LD 

ft.C473CH) 

Laval aua Bildachiraapaichar holan 

708E 

D630 

SUB 

30H 

- 30H 

7090 

320042 

LD 

C4200H) .ft 

in Variable fuar Laval abapaicharn 

7093 

3E07 

LD 

ft.07H 

07H (SOUND 7,247 : 

7095 

D3F8 

OUT 

(0F8H) .ft 

auf Port P8H achaltat Rauachen 

7097 

3EF7 

LD 

ft.OFTH 

P7H auf Kanal 1 ein) 

7099 

D3F9 

OUT 

(0F9H) .ft 

auf Port P9H 

709B 

21E479 

LD 

HL.79E4H 

Auf die Adraaaa fuar die Aniaiga dar 

709E 

0605 

LD 

B.05H 

raatlichan Schiffe, S aal 

70B0 

36B0 

LD 

(HL).OBOH 

OBOH (klainaa Schiff) abapaicharn 

70A2 

23 

INC 

HL 


70A3 

lOFB 

DONZ 

$-03H 


70A5 

3E05 

LD 

ft.05H 

05H 

70B7 

D3F8 

OUT 

(0F8H) .ft 

auf Port P8H (SOUND 5,3 : 

70PI9 

3E03 

LD 

ft.03H 

03H Praquani daa dritten 

70BB 

D3F9 

OUT 

(0F9H) .ft 

auf Port P9H Kanala vorbalagan) 

70AD 

21D007 

LD 

HL.07D0H i 

07D0H « 2000D ala arata Grenxa fuar 

70B0 

220C42 

LD 

C420CH).HL 

Bonuaachiff abapaicharn 

70B3 

C38074 

DP 

7480H i 

Sprung lua Bildaufbau 


; *«* URTERPR06RAMN SOUNDOPP UND LGR 


70F0 

3E07 

LD 

ft.07H 

; 07H (SOUND 7,255 : 

70F2 

D3F8 

OUT 

(0F8H) .ft 

; auf Port P8H alle Kanaala 

70F4 

3EFF 

LD 

ft.OFFH 

; OPPH abachaltan) 

70F6 

D3F9 

OUT 

(0F9H) .ft 

; auf Port P9H 

70F8 

CDB038 

CftLL 

38B0H 

; Roa-Routina fuar LGR 

70FB 

C9 

RET 


i 


; *** UNTERPROGRAMM PUER BEWEGUNG DER PEINDE *«< 


7100 

DD218078 

LD 

IX.7880H 

; IX auf Tabelle dar Paindpoaiiionan 

7104 

ED4B0842 

LD 

BC.(4208H) 

; BC mit X-Bavagungarichtung vorbalagan 

7108 

DD6E00 

LD 

L. (IX+OOH) 

; L iat LSB dar Poaition 

710B 

DD6601 

LD 

H.(IX+OIH) 

; H iat MSB der 

710E 

7C 

LD 

ft.H 

; MSB 

710F 

B5 

DR 

L 

; odariart ait LSB «07 

7110 

CftB371 

DP 

Z.71B3H 

; Wann ja, dann aiietiart Paind nicht 

7113 

3620 

LD 

(HL).20H 

; Erataa Byte ait 20H (SPACE) loaachan 

7115 

23 

INC 

HL 

; und 

7116 

3620 

LD 

(HL).20H 

; ivaitaa Byte abaneo 
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7192 

399940 

LD 

9,C4099H) 

; Zufalltzahl in Akku 

7195 

BB 

CP 

E 

; ait Laval vtrgltichan 

7196 

3004 

OR 

NC.S+06H 

; wenn Zahl > Lava! dann nach 719CH 

7198 

DD360228 

LD 

CIX+02H).28H 

; 28H (« ^40D) in Y-Richtung abtpaicharn 

719C 

1815 

OR 

$ + 17H 

; und nach 7IB3H 

719E 

DD7E02 

LD 

9,(IX+02H) 

; Y-Richtung in dan Akku 

7191 

FE28 

CP 

28H 

; « 28H (* ^40D) 

7193 

200E 

OR 

NZ,$+10H 

; wann nicht, dann nach 71B3H 

7195 

CDF014 

C9LL 

14F0H 

; Zufallaiahl ariaugan 

7198 

399940 

LD 

9,(4099H) 

; Zahl in Akku 

719B 

FEOl 

CP 

OIH 

; < OIH (koannan Sia aandarn) 

719D 

3004 

OR 

NC.$+06H 

i wenn nicht, dann nach 7IB3H 

719F 

DD3602D8 

LD 

(IX+02H).0D8H 

; aonat 0D8H (* -40D) in Y-Richtung 

71B3 

110400 

LD 

DE.0004H 

; 0004H fuar 4 Tabellanplaetza 

71B6 

DD19 

9DD 

IX.DE 

; zu IX addiaran 

71B8 

DD 

DEFB 

ODDH 

; DD7D ist ain Sondarbafahl, dar das 

71B9 

7D 

LD 

9.L 

; LSB von IX in dan Akku laadt. 

71B9 

B7 

DR 

9 

; gleich 0 7 (bai IX « 7900H) 

71BB 

C20471 

OP 

NZ.7104H 

i nein 7 dann naachstan Feind bavagen 

71BE 

C9 

RET 


;sonst zurueck 


; UMTERPROGRAMM ZUR AEMDERUMG DER X-RICHTUMG 


71C0 

3E08 

LD 

9.08H 

; 08H 

71C2 

D3F8 

OUT 

C0F8HD .9 

; auf Port F8H 

71C4 

DBF9 

IN 

9.C0F9H) 

; Port FSH in dan Akku (Lautstaarka 1) 

71C6 

B7 

DR 

9 


71C7 

2801 

OR 

Z.$+03H 

; schon 0 7 dann nach 7ICAH 

71C9 

3D 

DEC 

9 

; sonst -1 

71C9 

D3F9 

OUT 

(0F9H).9 


71CC 

212844 

LD 

HL.4428H 

; HL auf 1. Byte, 2. Bildschirazaila 

71CF 

112800 

LD 

DE.0028H 

; DE * 28H (« MOD) 

71D2 

0616 

LD 

B. 16H 

; B « 16H (« 20D) als Zaahler dar Zeilen 

71D4 

7E 

LD 

9.CHLD 

; Zeichen aus dan Bildschirn in Akku 

71D5 

FE20 

CP 

20H 

; » 20H (SPACE) 7 

71D7 

2005 

OR 

NZ.$+07H 

; wann nicht, dann nach 71DEH 

71D9 

19 

9DD 

HL. DE 

i sonst HL « HL ^ 40D (naachsta Zeile) 

71D9 

10F8 

DONZ 

S-06H 

; Zashlar -1 nicht 0 7 dann nach 71D4H 

71DC 

1806 

OR 

$+08H 

; sonst nsch 7IE4H 

7 IDE 

210100 

LD 

HL.OOOIH 

; ^1 (* nach rechts) 

71E1 

220842 

LD 

(4208H).HL 

; in Variable fuar X-Richtung 

71E4 

214F44 

LD 

HL.444FH 

; HL auf 39. Byte in 2. Bildschirnzaila 

71E7 

0616 

LD 

B. 16H 

; B « 20D 

71E9 

7E 

LD 

9.CHL) 

; Zeichen in Akku 

71E9 

FE20 

CP 

20H 

; « 20H (SPACE) 7 

71EC 

2004 

OR 

NZ.$+06H 

; wann nicht, dann nach 71F2H 

71EE 

19 

9DD 

HL. DE 

; HL * HL ♦ 40D 

71EF 

10F8 

DONZ 

$-06H 

; naachstas Zeichen tasten 

71F1 

C9 

RET 


*, und zurueck 

71F2 

21FFFF 

LD 

HL.OFFFFH 

; -1 (« nach links) 

71F5 

220842 

LD 

(4208H).HL 

; in Variable fuar X-Richtung 

71F8 

C9 

RET 


; und zuruack 
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; »»• HAUPTSCHlElfE «• 


7200 

3B0A42 

LD 

A.C420AH) 

Za«hl«r in Akku 

7203 

3C 

INC 

A 

♦1 

7204 

320B42 

LD 

C420AH).A 

«iadar abtpaicharn 

7207 

CD0071 

CALL 

7100H 

Untarprg.: Paindbawagung 

720R 

CDC071 

CALL 

71C0H 

Untarprg.: X-Richtung 

720D 

CD3874 

CALL 

7438H 

Untarprg.: Schiff loaachan 

7210 

3A40F8 

LD 

A.(0F840H) 

Taataturapaichar in Akku 

7213 

E620 

AND 

20H 

Bit S iaoliaran (Pfail nach linka) 

7215 

2801 

OR 

Z,$+03H 

nicht gaaatit 7 dann nach 7218H 

7217 

2B 

DEC 

HL 

aonat Schiffa-Poaition -1 

7218 

3B40F8 

LD 

A,(0F840H) 

Taataturapaichar in Akku 

721B 

E640 

AND 

40H 

Bit 6 (Pfail nach rachta) 

721D 

2801 

OR 

2,$+03H 

nicht gaaatit 7 dann nach 7220H 

721F 

23 

INC 

HL 

aonat Schiffa-Poaition ^1 

7220 

7D 

LD 

A,L 

LSB dar Poaition in Akku 

7221 

FE98 

CP 

98H 

« 98H 7 (linkar Rand) 

7223 

2001 

OR 

NZ.$+03H 

wann nicht, nach 7226H 

7225 

23 

INC 

HL 

aonat Poaition 

7226 

FEBC 

CP 

OBCH 

* BGH 7 (rachtar Rand -4) 

7228 

2001 

OR 

NZ,$+03H 

wenn nicht, nach 722BH 

722A 

2B 

DEC 

HL 

aonat Poaition -1 

722B 

220642 

LD 

(4206H).HL 

Poaition «iadar abapaicharn 

722E 

CD5074 

CALL 

7450H 

Untarprg.: Schiff und Parba aetian 

7231 

3A40F8 

LD 

A.C0F840H) 

Taataturapaichar in Akku 

7234 

E680 

AND 

80H 

Bit 7 

7236 

2803 

OR 

Z.S+05H 

nicht gaaatit 7 dann nach 723BH 

7238 

CD7072 

CALL 

7270H 

Untarprg.: Schuaa initialiaiaran 

723B 

CD8073 

CALL 

7380H 

Untarprg.: Schueaaa und Eiploaionan 

723E 

3A40F8 

LD 

A.C0F840H) 

Taataturapaichar in Akku 

7241 

FE06 

CP 

06H 

« 06H (BREAK k CLEAR) 7 

7243 

CA0070 

OP 

Z,7000H 

wann ja, lun Prograanatart 

7246 

3iR0B42 

LD 

A,C420BH) 

Aniahl der varbliebanan Painda 

7249 

B7 

OR 

A 

Plaga aatian 

724B 

C20072 

OP 

NZ.7200H 

wann <> 0 dann lur Hauptachlaifa 

724D 

C38074 

OP 

7480H 



; «< SCHUSS IIITIALISIEREI 



7270 

217078 

LD 

HL.7870H 

; Anfang dar Schuaapoaitionataballa 

7273 

7E 

LD 

A. CHL) 

; LSB in Akku 

7274 

23 

INC 

HL 

i 

7275 

B6 

OR 

CHL) 

; odariart ait MSB 

7276 

2807 

OR 

Z.$+09H 

; * 0 7 dann nach 727PH 

7278 

23 

INC 

HL 

; naechata Taballanpoaition 

7279 

7D 

LD 

A.L 

; LSB daa Zeigara in Akku 

727A 

FE80 

CP 

80H 

; « 80H 7 (HL * 7880H) 

727C 

20F5 

OR 

N2.$-09H 

; wann nicht, dann nach 7273H 
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727E 

C9 

RET 


; zurueck, alle Schuetse belegt 

727F 

28 

DEC 

HL 

; HL wieder auf LSB 

7280 

E8 

EX 

DE, HL 

; in DE 

7281 

2R0642 

LD 

HL. (4206H) 

; Schirrspoeition 

7284 

01D9FF 

LD 

8C,0FFD9H 

; PPD9H (* -39D) 

7287 

09 

RDD 

HL.8C 

; addieren. Poeition ueber dea Schiff 

7288 

E8 

EX 

DE, HL 

; wieder vertauschen 

7288 

73 

LD 

CHL),E 

; LSB in Tabelle 

728A 

23 

INC 

HL 

; naechste Adresse 

7288 

72 

LD 

I 

r 

o 

; MSB abspeichern 

728C 

E8 

EX 

DE ,HL 

; Position wieder in HL 

7280 

36R6 

LD 

CHL),0A6H 

; A6H ist def. Zeichen fuer Schuss 

728F 

1lOOAC 

LD 

DE.OACOOH 

; Offset zun Parbspeicher 

7292 

19 

ADD 

HL. DE 

; addieren 

7293 

3603 

LD 

(HL).03H 

; und mit 3 belegen 

7295 

C9 

RET 


;zurueck 


; *** EXPLOSION INITIALISIEREN UND FEIND LOESCHEN «« 


7298 

E5 

PUSH 

HL 

Trefferposition retten 

7299 

FD215078 

LD 

IY,7850H 

lY auf Tabelle der Explosionen 

729D 

FD6E00 

LD 

L,ClY+OOH) 

LSB in L 

72A0 

FD6601 

LD 

H,ClY+OlH) 

MSB in H 

72A3 

7C 

LD 

A.H 

MSB 

72A4 

85 

DR 

L 

oderiert nit LSB 

72A5 

2812 

OR 

Z.$+14H 

« 0 7 dann nach 72B9H 

72A7 

FD23 

INC 

lY 

sonst drei Tabellenplaetze weiter 

72A9 

FD23 

INC 

lY 


72A8 

FD23 

INC 

lY 


72AD 

FD 

DEF8 

OFDH 

Sonderbefehl ’LD A,LSB lY’ 

72AE 

7D 

LD 

A.L 


72AF 

FE68 

CP 

68H 

* 68H (lY * 7868H) 7 

7281 

C29D72 

DP 

NZ,729DH 

wenn nicht, dann nach 729DH 

7284 

El 

POP 

HL 

Stack korrigieren 

7285 

210000 

LD 

HL.OOOOH 

naechste Schussposition * 0 

7288 

C9 

RET 


und zurueck 

7289 

El 

POP 

HL 

Trefferposition zurueck in HL 

728A 

7E 

LD 

A,(HL) 

getroffenes Zeichen in Akku 

7288 

E601 

AND 

OIH 

nit OIH undieren. Bei Ergebnis 0 ist 

728D 

2801 

OR 

Z.S+03H 

es das linkeeZeichen eines Feindes 

728F 

28 

DEC 

HL 

sonst HL decrenentiren 

72C0 

FD7500 

LD 

(lY+OOH) ,L 

LSB der Position in Tabelle ablegen 

72C3 

FD7401 

LD 

(lY+OlH) .H 

MSB ebenso. 

72C6 

FD360200 

LD 

(IY+02H),00H 

Explosionszaehler auf 0 setzen 

72CA 

E8 

EX 

DE, HL 

Position in DE Zwischenspeichern 

72C8 

FD218078 

LD 

IY,7880H 

lY auf Postionstabelle der Feinde 

72CF 

FD6E00 

LD 

L.(lY+OOH) 

LSB der Position in L 

72D2 

FD6601 

LD 

H.(lY+OlH) 

MSB in H 

72D5 

DF 

RST 

18H 

vergleich nit Trefferposition in DE 

72D6 

280E 

3R 

Z.$+10H 

gleich 7 denn nach 72E6H 

72D8 

010400 

LD 

8C,0004H 

sonst lY ^4 

72D8 

FD09 

ADD 

IY.8C 

addieren 

72DD 

FD 

DEF8 

OFDH 

LSB von lY in Akku 

72DE 

7D 

LD 

A.L 


72DF 

87 

DR 

A 

Flags setzen 

72E0 

20ED 

DR 

X 

1 

w» 

N 

Z 

0 0 7 dann nach 72CFH 
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72E2 

210000 

LD 

HL,OOOOH 

Naechste Schussposition gleich 0 

72E5 

C9 

RET 


surueck, kein Feind getroffen 

72E6 

3620 

LD 

(HL),20H 

Feind in Bildschirm loeschen 

72E8 

23 

INC 

HL 


72E9 

3620 

LD 

(HL),20H 

iweites Byte loeschen 

72EB 

210000 

LD 

HL »OOOOH 

0 in Positionstahelle der Feinde 

72EE 

FD7500 

LD 

(lY+OOH),L 

schreiben. Der entsprechende Feind 

72F1 

FD7401 

LD 

(lY+OlH),H 

ist gsloescht 

72F4 

2B0242 

LD 

HL,(4202H) 

Punktzahl in HL 

72F7 

3PI0042 

LD 

R.(4200H) 

Level in Akku 

72FFI 

07 

RLCft 


*2 

72FB 

3C 

INC 

R 

♦ 1 

72FC 

5F 

LD 

E,R 

nach E speichern 

72FD 

1600 

LD 

D,OOH 

0loeschen 

72FF 

19 

RDD 

HL, DE 

DB zur Punktzahl addieren 

7300 

220242 

LD 

(4202H),HL 

und wieder abspeichern 

7303 

3A0B42 

LD 

R,(420BH) 

Anzahl der verbliebenen Feinde in Akku 

7306 

3D 

DEC 

R 

-1 

7307 

320B42 

LD 

(420BH),R 

wieder abspeichern 

730A 

210000 

LD 

HL,OOOOH 

nächste Schussposition gleich 0 

730D 

3E08 

LD 

R,08H 

08H (SOUND 8,15 : 

730F 

D3F8 

OUT 

(0F8H),R 

auf Port F8H Lautstaerke von Kanal 

7311 

3E0F 

LD 

R,OFH 

OFH 1 auf maxinum setzen) 

7313 

D3F9 

OUT 

(0F9H) ,R 

auf Port FSH 

7315 

C9 

RET 


und zurueck 


; *** AUSGABE EINER ZAHL 

SSt 



7320 

3E30 

LD 

R,30H 

30H * ASC(”0”) in Akku 

7322 

3C 

INC 

A 

♦1 

7323 

09 

RDD 

HL ,BC 

HL « HL 4 BC (BG « -10000,-1000 usw.) 

7324 

38FC 

OR 

C,$-02H 

wenn Carry gesetzt dann weiter 

7326 

3D 

DEC 


sonst Akku -1 

7327 

ED42 

SBC 

HL,BC 

HL « HL - BC 

7329 

12 

LD 

(DE) ,R 

Akku auf Adresse (OB) abspeichern 

732R 

13 

INC 

DE 

DE auf naechste Position 

732B 

C9 

RET 


zurueck 

732C 

D5 

PUSH 

DE 

Adresse fuer Ausgabe der Zahl retten 

732D 

ED5B0C42 

LD 

DE,(420CH) 

Punktzahl fuer Bonusschiff nach DE 

7331 

DF 

RST 

18H 

mit Punktzahl vergleichen 

7332 

38 IR 

3R 

C,$+1CH i 

Nenn groesser, dann nach 734EH 

7334 

EB 

EX 

DE, HL 

Bonuspunktzahl nach HL 

7335 

01D007 

LD 

BC,07D0H i 

07D0H * 2000D 

7338 

09 

RDD 

HL,BC 

addieren 

7339 

220C42 

LD 

(420CH),HL i 

und abspeichern 

733C 

EB 

EX 

DE, HL 

Punktzahl zurueck nach HL 

733D 

11E479 

LD 

DE,79E4H i 

DB auf Position der Schiffsagzeige 

7340 

IR 

LD 

R,(DE) 

Zeichen in Akku 

7341 

FEBO 

CP 

OBOH i 

Zeichen fuer Schiff 7 

7343 

2006 

OR 

NZ,$+08H 

wenn nicht, dann nach 734BH 

7345 

13 

INC 

DE i 

naechste Position 

7346 

7B 

LD 

R,E 

LSB in Akku 

7347 

FEEE 

CP 

OEEH i 

* EEH 7 (Hier beginnt *H1GH-SC0RE..*) 

7349 

20F5 

OR 

NZ,S-09H 

wenn nicht, dann nach 7340H 

734B 

3EB0 

LD 

R,OBOH i 

Zeichen fuer Schiff in Akku 

734D 

12 

LD 

(DE),R i 

auf DE abspeichern 
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734E 

Dl 

POP 

DE 

Adresse fuer Ausgabe zurueck 

734F 

01F0D8 

LD 

BC,0D8F0H 

BC s -10000 

7352 

CD2073 

CALL 

7320H 

Stelle berechnen 

7355 

0118FC 

LD 

BC.0FC18H 

BC » -1000 

7358 

CD2073 

CALL 

7320H 

Stelle berechnen 

735B 

019CFF 

LD 

BC.0FF9CH 

BC * -100 

735E 

CD2073 

CALL 

7320H 

Stelle berechnen 

7361 

01F6FF 

LD 

BC,0FFF6H 

BC « -10 

7364 

CD2073 

CALL 

7320H 

Stelle berechnen 

7367 

OlFFFF 

LD 

BC.OFFFFH 

BC * -1 

736PI 

CD2073 

CALL 

7320H 

Stelle berechnen 

736D 

21D879 

LD 

HL.79D8H 

Adresse der Ausgabezeile 

7370 

110044 

LD 

DE,4400H 

erste Bildschirazeile 

7373 

012800 

LD 

BC,0028H 

40 Zeichen 

7376 

EDBO 

LDIR 


kopieren 

7378 

C9 

RET 


und zurueck 


; «« UNTERrROGRANN SCHUESSE UND EXPLOSIONEN BENEGEN 


7380 

DD217078 

LD 

IX,7870H 

7384 

DD6E00 

LD 

L.(IX+OOH) 

7387 

DD6601 

LD 

H,CIX+OIH) 

738A 

7C 

LD 

A,H 

738B 

B5 

DR 

L 

738C 

2836 

3R 

Z,$+38H 

738E 

7E 

LD 

A.(HL) 

738F 

FEAO 

CP 

OAOH 

7391 

381A 

3R 

C,$+lCH 

7393 

3620 

LD 

(HL),20H 

7395 

11D8FF 

LD 

DE.0FFD8H 

7398 

19 

ADD 

HL, DE 

7399 

112844 

LD 

DE,4428H 

739C 

DF 

RST 

18H 

739D 

3005 

DR 

NC.$+07H 

739F 

210000 

LD 

HL »OOOOH 

73A2 

1814 

DR 

$+16H 

73A4 

7E 

LD 

A, (HL) 

73A5 

FE80 

CP 

80H 

73A7 

3807 

DR 

C,$+09H 

73A9 

FEAO 

CP 

OAOH 

73AB 

3003 

DR 

NC.$+05H 

73AD 

CD9872 

CALL 

7298H 

73B0 

3A0A42 

LD 

A.(420AH) 

73B3 

E601 

AND 

OIH 

73B5 

C6A6 

ADD 

A.0A6H 

73B7 

77 

LD 

(HL) .A 

73B8 

DD7500 

LD 

(IX+OOH).L 

73BB 

DD7401 

LD 

(IX+OIH) .H 

73BE 

1lOOAC 

LD 

DE.OACOOH 

73C1 

19 

ADD 

HL, DE 

73C2 

3609 

LD 

(HL).09H 

73C4 

DD23 

INC 

IX 

73C6 

DD23 

INC 

IX 

73C8 

DD 

DEFB 

ODDH 

73C9 

7D 

LD 

A.L 

73CA 

FE80 

CP 

80H 


IX auf Tabelle der Schueste 
LSB der Position nach L 
MSB nach H 
MSB 

oderiert ait LSB 
« 0 7 dann nach 73C4H 
Zeichen auf Schussposition 

< AOH 7 

wenn ja, dann nach 73ADH 

Schuss loeschen 

-40D 

aur Position addieren 

2. Bilschiraieile 

mit Position vergleichen 

wenn groesser dann nach 73A4H 

sonst naechste Schussposition gleich 0 

und nech 73B8H 

Zeichen euf neuer Position in Akku 

< 80H 7 (ain. der Zeichen fuer Feinde) 
wenn ja, dann nach 73B0H 

>> AOH 7 (aax.) 

wenn nicht, dann nach 73B0H 
Unterprg.: Explosion initialisieren 
Zaehler in Akku 

ait OIH undieren (ergibt 0 oder 1) 

* A6H (ergibt Zeichen fuer Schuss) 
auf neuer Position abspeichern 
LSB Schussposition wieder in Jabelle 
MSB ebenso 

Offset zua Parbspeicher 
addieren 

und ait 09H belegen 
Tabellenzeiger *2 

LSB von IX in Akku 

> 80H (IX « 7880H) 
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73CC 

C28473 

DP 

NZ.7384H 

wann nicht, nach 7384H 

73CF 

DD215078 

LD 

IX,7850H 

IX auf Taballa dar Exploaionan 

73D3 

DD6E00 

LD 

L,(IX+OOH) 

LSB dar Position in L 

73D6 

DD8601 

LD 

H,(IX+OIH) 

MSB in H 

73D9 

7C 

LD 

R,H 

MSB 

73DR 

B5 

DR 

L 

odariart ait LSB 

73DB 

2828 

JR 

2.$+2RH 

* 0 7 dann nach 7405H 

73DD 

DD7E02 

LD 

R,CIX+02H) 

Explosionsiaahlar in Akku 

73E0 

07 

RLCR 


»2 

73E1 

C6RR 

RDD 

R,ORRH 

* AAH (Zaichan dar Exploaionan) 

73E3 

FEBO 

CP 

OBOH 

> BOH 7 (Explosion zuanda) 

73E5 

2008 

DR 

NZ.$+ORH 

wann nicht, nach 73EPH 

73E7 

3620 

LD 

CHL),20H 

Explosion loaschan 

73E9 

23 

INC 

HL 


73ER 

3620 

LD 

CHL),20H 

zwaites Byta loaschan 

73EC 

210000 

LD 

HL.OOOOH 

Position glaich 0 

73EF 

DD7500 

LD 

(IX+OOH),L 

wisdar abspaicharn 

73F2 

DD7401 

LD 

(IX+OIH) .H 


73F5 

77 

LD 

(HL),R 

Zaichan auf Explosion abspaicharn 

73F6 

23 

INC 

HL 

naachsta Adrassa 

73F7 

3C 

INC 

R 

naachstas Zaichan 

73F8 

77 

LD 

(HL) »R 

abspaicharn 

73F9 

1IFFRB 

LD 

DE »ORBFFH 

Offsat tum Parbspaichar -1 (wegan INC) 

73FC 

19 

RDD 

HL. DE 

zur Position addisran 

73FD 

D609 

SUB 

09H 

Zaichanwart -9 argibt Parba (2,4od. 6) 

73FF 

77 

LD 

(HL).R i 

in den Parbspaichar ablegen 

7400 

23 

INC 

HL 

und 

7401 

77 

LD 

CHD.R i 

auf dia naachsta Adrassa 

7402 

DD3402 

INC 

CIX+02H) 

Explosionszaehler -^1 

7405 

DD23 

INC 

IX i 

Taballanzaahler ^3 

7407 

DD23 

INC 

IX 


7409 

D023 

INC 

IX i 


740B 

DD 

DEFB 

ODDH 

LSB von IX in Akku 

740C 

7D 

LD 

R.L i 


740D 

FE68 

CP 

68H 

« 68H 7 (IX * 786aH) 

740F 

C2D373 

DP 

NZ.73D3H i 

wann nicht, naachsta Explosion 

7412 

2R0242 

LD 

HL.C4202H) 

Punktzahl 

7415 

11DE79 

LD 

DE.79DEH i 

auf 79DEH (Ausgabezaila) 

7418 

CD2C73 

CRLL 

732CH 

barechnan und ausgaban 

741B 

2A0242 

LD 

HL.C4202H) i 

Punktzahl 

741E 

ED5B0442 

LD 

DE.(4204H) 

und bestes Ergebnis 

7422 

DF 

RST 

18H 

varglaichan 

7423 

3809 

OR 

C.$+OBH 

wann Punktzahl kleiner,dann nach 742EH 

7425 

220442 

LD 

C4204H).HL 

sonst als bestes Ergebnis abspaicharn 

7428 

11FB79 

LD 

DE.79FBH 

und auf 79PBH (Ausgabezaila) 

742B 

CD4F73 

CRLL 

734FH 

berechnen und ausgaban 

742E 

C9 

RET 


zuruack 


; *** UMTBRPROGRAMM SCHIPP TESTEM UMD lOESCHEM *** 


7438 

2R0642 

LD 

HL.C4206H) 

; Schiffsposition in HL 

743B 

0603 

LD 

B.03H 

; Zaehler fuer Anzahl der Bytes 

743D 

7E 

LD 

R. CHL) 

; Zeichen aus Bildschir« in Akku 

743E 

FERO 

CP 

OROH 

; < AOH 7 (gehoert zu Peinden) 

7440 

3809 

3R 

C.$+OBH 

; wenn ja, dann nach 744BH 

7442 

3620 

LD 

(HL).20H 

; sonst loaschan 
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7444 

23 

INC 

HL 

7445 

10F6 

DONZ 

$-08H 

7447 

2B 

DEC 

HL 

7448 

2B 

DEC 

HL 

7449 

2B 

DEC 

HL 

744A 

C9 

RET 


744B 

Fl 

POP 

RF 

744C 

C33075 

DP 

7530H 


; *»* SCHIFF UND FARBEN SETZEN *** 


7450 

06R0 

LD 

B,OAOH 

7452 

3R0R42 

LD 

A, C420AH) 

7455 

E601 

AND 

OIH 

7457 

2802 

OR 

Z,$+04H 

7459 

06R3 

LD 

B,0A3H 

745B 

78 

LD 

A,B 

745C 

77 

LD 

(HL),A 

745D 

23 

INC 

HL 

745E 

3C 

INC 

A 

745F 

77 

LD 

(HL),A 

7460 

23 

INC 

HL 

7461 

3C 

INC 

A 

7462 

77 

LD 

(HL),A 

7463 

1IFERB 

LD 

DE.OABFEH 

7466 

19 

ADD 

HL. DE 

7467 

3606 

LD 

(HL).06H 

7469 

23 

INC 

HL 

746R 

3602 

LD 

(HL).02H 

746C 

23 

INC 

HL 

746D 

3606 

LD 

(HL).06H 

746F 

C9 

RET 



; *** BILDAUFBAU UND SPIELSTART *** 


7480 

210044 

LD 

HL,4400H 

7483 

110144 

LD 

DE.4401H 

7486 

01FF03 

LD 

BC.03FFH 

7489 

3620 

LD 

(HL).20H 

748B 

EDBO 

LDIR 


748D 

21D879 

LD 

HL.79D8H 

7490 

110044 

LD 

DE.4400H 

7493 

012800 

LD 

BC.0028H 

7496 

EDBO 

LDIR 


7498 

210078 

LD 

HL,7800H 

749B 

1lOOFO 

LD 

DE.OFOOOH 

749E 

012800 

LD 

BC.0028H 

74A1 

EDBO 

LDIR 


74A3 

3A0142 

LD 

A.(4201H) 

74A6 

3C 

INC 

A 


; naschttes Byte 

; alla gataatat T wenn nicht, nach 743DH 
; HL wiadar auf dia Poaition daa 
; aratan Zaichena bringen 

; und lurueck 

; Stack korrigiaran 

; Untarprg.: Exploaion daa Schiffaa 


AOH iat arate Phaaa daa Schiffaa 
Zaahlai.’ in Akku 

undieran nit OIH (ergibt 0 oder I) 
• 0 7 dann nach 745BH 
aonat A3H in B (xweite Phaae) 

B in Akku 

auf Schiffapoaition 
naechate Adreaae 
naechatea Zeichen 
abapeichern 
naechate Adreaae 
naechatea Zeichen 
abapeichern 

Offaet xun Farbapeicher -2 
xur Poaition addieren 
06H abapeichern (orange) 
naechate Adreaae 
02H abapeichern (rot) 
naechate Adreaae 
06H abapeichern (orange) 
und Zurueck 


Erate Bildachirnpoaition 

Zweite Bildachirnpoaition 

Bildachirnlaenge -1 

20H auf eratea Zeichen (SPACE) 

1. Zeichen auf 2. achieben uaw. 

Auagabezeila 

auf erate Bildachirnzeile 

40D Zeichen 

achieben 

Farben der eraten Zeile 
in den Farbapeicher 
40D Bytea 
achieben 
Feindtyp in Akku 
♦ I 
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74FI7 

E607 

RND 

07H 

■ it 07H undieren (nur 0..7 tugel.) 

74R9 

320142 

LD 

C4201H),R 

und wiader abapeichern 

74AC 

21AB47 

LD 

HL,47RBH 

Schiffsposition, vorlatite Zaile,Mitte 

74AF 

220642 

LD 

(4206H),HL 

abspeichern 

74B2 

210079 

LD 

HL,7900H 

Tabelle der Feindpositionen 

74B5 

118078 

LD 

DE.7880H 

in die Arbeitstabelle 

74B8 

018000 

LD 

BC.0080H 

1280 Bytes (fuer 320 Feinde) 

74BB 

EDBO 

LDIR 


schieben 

74BD 

210100 

LD 

HL.OOOIH 

X-Richtung (OOOlH-rechts, PFFFH-Iinks) 

74C0 

220842 

LD 

(4208HD,HL 

abspeichern 

74C3 

215078 

LD 

HL,7850H 

Schuesse und Explosionen 

74C6 

115178 

LD 

DE.7851H 

ait OOH ueberschreiben 

74C9 

012F00 

LD 

BC,002FH 

(OOOOH als Position bedeutet Schuss, 

74CC 

3600 

LD 

(HL),00H 

Explosion oder Feind existiert nicht) 

74CE 

EDBO 

LDIR 



74D0 

3E20 

LD 

R,20H 

Anxahl der Feinde (320) abspeichern 

74D2 

320B42 

LD 

(420BH),R 

74D5 

3R0042 

LD 

R,(4200H) 

Level in Akku 

74D8 

3C 

INC 

R 

♦1 

74D9 

320042 

LD 

(4200H),R 

und wieder abspeichern 

74DC 

212878 

LD 

HL.7828H 

Text »•* GET REAOY 

74DF 

113C46 

LD 

DE.463CH 

in Bildschiraspeicher 

74E2 

011000 

LD 

BC »OOlOH 

16 Zeichen 

74E5 

EDBO 

LDIR 


schieben 

74E7 

2R0642 

LD 

HL,C4206H) 

Schiffsposition in HL 

74EFI 

CD5074 

CRLL 

7450H 

Schiff und Farben setxen 

-74ED 

3E18 

LD 

R, 18H 

18H * JR unbedingt, daait die Feinde 

74EF 

328971 

LD 

(7189H),R 

ia Vorspann keine Y-Richtung bekoaaen 

74F2 

060C 

LD 

B,OCH 

Zaehler (fuer 120 Ourchlaeufe) 

74F4 

C5 

PUSH 

BC 

retten 

74F5 

CD0071 

CRLL 

7100H 

; Unterprg.: Feinde bewegen 

74F8 

CDC071 

CRLL 

71C0H 

; Unterprg.: X-Richtung testen 

74FB 

213CF2 

LD 

HL.0F23CH 

; Farbspeicheradresse von ’GET REAOY’ 

74FE 

113DF2 

LD 

DE,0F23DH 

; ait einea 

7501 

OIOFOO 

LD 

BC,OOOFH 

zufaelligen Wert 

7504 

ED5F 

LD 

R,R 

; aus dea R-(Refre8h-) Register 

7506 

77 

LD 

(HL) ,R 

belegen 

7507 

EDBO 

LDIR 


; 160 Bytes 

7509 

010018 

LD 

BC,1800H 

Narteschleifenwert 

750C 

CD6000 

CRLL 

0060H 

; RON-Routine: Schleife auf BC 

750F 

CI 

POP 

BC 

BC zurueck voa Stack 

7510 

10E2 

D3NZ 

S-ICH 

; und evtl, neuer Ourchlauf 

7512 

3E20 

LD 

R,20H 

20H * ]R NZ (non zero), die Feinde 

7514 

328971 

LD 

(7189H).R 

; koennen sich jetzt wieder voll bewegen 

7517 

213C46 

LD 

HL.463CH 

’** GET REAOY Position ia Bild- 

751R 

1 13D46 

LD 

DE.463DH 

i schiraspeicher ait 20H (SPACE) 

751D 

OIOFOO 

LD 

BC,OOOFH 

belegen 

7520 

77 

LD 

(HL) ,R 

ia Akku steht noch 20H 

7521 

EDBO 

LDIR 


160 Bytes 

7523 

C30072 

3P 

7200H 

Sprung zur Hauptschleife 


; **» EXPLOSION DES SCHIFFES *** 


7530 061F LD B»1FH ; Zaehler (31 Durchlaeufe) 
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7532 

3E07 

LD 

8.07H 

; 07H (SOUND 7,231 

7534 

D3F8 

OUT 

(0F8H).8 

;auf Port FSH Kanal 1 und 2 «ardan 

7536 

3EE7 

LD 

8.0E7H 

; E7H auf Rauschganarator 

7538 

D3F9 

OUT 

(0F9H).8 

; auf Port P9H gaachaltat) 

7538 

C5 

PUSH 

BC 

; Zaehlar rattan 

753B 

3E09 

LD 

8.09H 

; 09H (SOUND 9,0..15 

753D 

D3F8 

OUT 

(0F8H),8 

; auf Port FSH Lautataarka von 

753F 

78 

LD 

8.B 

; Zaahlar in Akku Kanal 2 wird wit 

7540 

E60F 

8ND 

OFH 

; mit OFH undiaran dam Schlaifanzaahlar 

7542 

D3F9 

OUT 

(0F9HD,8 

; auf Port P9H gaaandart) 

7544 

3E06 

LD 

8,06H 

; 06H 

7546 

D3F8 

OUT 

C0F8H).8 

i auf Port FSH (SOUND 6,0..31 

7548 

3E1F 

LD 

8, IFH 

; IFH in Akku Rautchfraquani wird 

7548 

90 

SUB 

B 

; winut Zaahlar wit da* Zaahlar ga- 

754B 

D3F9 

OUT 

(0F9H),8 

; auf Port F9H aandart) 

754D 

380842 

LD 

8,C4208H) 

; Zaahlar in Akku 

7550 

3C 

INC 

8 

; 

7551 

320842 

LD 

(4208H).8 

; und wiadar abtpaicharn 

7554 

CD0071 

C8LL 

7100H 

; Untarprg.: Fainda bewagan 

7557 

CDC071 

C8LL 

71C0H 

; Untarprg.: X-Richtung tastan 

7558 

CD8073 

C8LL 

7380H 

i Untarprg.: Schuaasa und Explosionan 

755D 

285078 

LD 

HL,(7850H) 

’, Position dar arstan Explosion in HL 

7560 

7C 

LD 

8.H 

: MSB 

7561 

B5 

OR 

L 

; odariart nit LSB 

7562 

2018 

OR 

NZ,5+18H 

; (> 0 7 dann nach 757CH 

7564 

280642 

LD 

HL.(4206H) 

; Schiffaposition in HL 

7567 

ED5F 

LD 

8,R 

; R-Ragistar als Zufallswart 

7569 

E601 

8ND 

OIH 

; ait OIH undiaran 

756B 

2801 

OR 

Z.$+03H 

; > 0 7 dann nach 756BH 

756D 

23 

INC 

HL 

; sonst Position *1 (rachter Tail) 

756E 

225078 

LD 

(7850H),HL 

; in Explosionstaballe abspeicharn 

7571 

325278 

LD 

C7852H).8 

i Akku in Explosionszaahler 

7574 

3E08 

LD 

8,08H 

i OSH (SOUND B,1S 

7576 

D3F8 

OUT 

C0F8H),8 

; auf Port FSH Kanal 1 auf maxiaala 

7578 

3E0F 

LD 

8. OFH 

i OFH Lautstaarke, Explo- 

7578 

D3F9 

OUT 

(0F9H) ,8 

; auf Port FSH sionsgaraausch) 

757C 

CI 

POP 

BC 

; Schlaifanzaahlar zuruack 

757D 

lOBB 

DONZ 

$-43H 

; fartig 7 wann nicht, dann nach 753AH 

757F 

21EE79 

LD 

HL.79EEH 

; Latztas Schiff in der Ausgabezaile 

7582 

7E 

LD 

8,CHL) 

; Zeichen in Akku 

7583 

FEBO 

CP 

OBOH 

; « BOH (Zeichen fuer Schiff) 

7585 

2809 

OR 

Z,S+OBH 

; wann ja, dann nach 7590H 

7587 

2B 

DEC 

HL 

; ein Zeichen vor 

7588 

7D 

LD 

8,L 

;LSB in Akku 

7589 

FEE3 

CP 

0E3H 

; « Position des ersten Schiffes -1 7 

758B 

20F5 

OR 

NZ,S-09H 

; wenn nicht, dann nach 75S2H 

758D 

C38075 

DP 

7580H 

; sonst Spielende 

7590 

3620 

LD 

CHL).20H 

; Schiff in Ausgabezaile loaschan 

7592 

380142 

LD 

8,C4201H) 

; Feindtyp in Akku 

7595 

3D 

DEC 

8 

; -I 

7596 

320142 

LD 

C4201H),8 

; wieder abspeichern 

7599 

C38074 

DP 

7480H 

; und das Bild wieder auN)auen 


; *»* SPIELENDE »»* 
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75f=l0 

21FA79 

LD 

HL ,79FPlH 

bestes Ergebnis von der Ausgebeseile 

75f=l3 

11607D 

LD 

DE.7D60H 

in die Anfangsgrarik kopieren 

75R6 

010600 

LD 

BC.0006H 


75R9 

75(=\B 

EDBO 

C30070 

LDIR 

3P 

7000H ! 

; Zur Eingabeschleife und neues Spiel 


; «*» PROGRAMMSTART *** 


75B0 

210000 

LD 

HL.OOOOH 

; High-Score 

75B3 

220442 

LD 

(4204H),HL 

; loeschen 

75B6 

310060 

LD 

SP.6000H 

; Stackpointer auf 6000H (vor Progrann) 

75B9 

C30070 

OP 

7000H 

; und Sprung xur Eingabeschleife 
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»» DER ZEICHENSATZ DES PROGRAMMS ZALAGA »» 


CHR$(128) CHR$(129) 



CHR$(134) CHR$(135) 



CHRS(140) CHR$(14n 



CHR$C146) CHR$(147) 



CHR$(152) CHRSC153) 


CHR$(130) CHRS(131) 



CHR$C136) CHR$(137) 



CHR$(142) CHR$(143) 



CHR$(148) CHR$(149) 



CHR$(154) CHR$(155) 


CHR$(132) CHR$(133) 



CHR$(138) CHRSC139) 



CHR$(144) CHR$(145) 



CHRSC150) CHRSC151) 



CHRSC156) CHRSC157) 


CHRSC158) CHRSC159) CHRSC160) CHRSC161) CHRSC162) CHRSC163) 
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CHR$C164) CHRSC165) CHR$C166) CHRSC167) CHR$C168) CHR$C169) 



CHRS(188) CHR$(189) CHR$C190) CHR$(191) CHR$(192D CHRS(193) 
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Ein schnelles Formatierprograrem für das Colour-Genie 
(nur für DisKettenbenutzer) 

Sicher ist Ihnen nicht entgangen, daß die Formatierroutine des 
Colour-DOS einen sehr großen Nachteil hat: sie ist zu langsam! 
Wir präsentieren hier ein Programm, das Disketten auf dem 
Colour-Genie in einem Bruchteil der gewohnten Zeit formatiert. 
Dieses Programm besteht aus zwei Teilen: 

1. Ein Maschinenspracheprogramm. Geben Sie dieses bitte auf 
irgendeine Art (z.B. mit dem Basic-Monitor, den Sie weiter 
vorne in diesem Buch gelistet finden; für diesen sind auch 
die Prüfsummen am Ende jeder Zeile bestimmt, diese also 
nicht CID mit eingeben.) in den Rechner ein. Dann speichern 
Sie dieses Programm mit 

CMD”W FFORMAT/CMD , &H8000,8cH82R7 , «cH0066'' 

auf Diskette ab. Geben Sie nun das kleine BASIC-Programm 
ein, das hinter dem Hex-Listing steht. Dieses Programm lädt 
und startet dann das Formatier-Programm. 


8000 

2B 

3E 

2C 

20 

3C 

3B 

3E 

2C 

96 

8008 

20 

3C 

40 

3E 

2C 

20 

3C 

53 

B5 

8010 

70 

61 

28 

4E 

16 

4E 

OC 

00 

B7 

8018 

03 

F5 

00 

01 

16 

4E 

OC 

00 

69 

8020 

03 

F5 

00 

00 

14 

FF 

OB 

FF 

15 

8028 

06 

00 

00 

01 

OB 

FF 

06 

00 

17 

8030 

00 

00 

D5 

C5 

3A 

OE 

5A 

CB 

07 

8038 

3F 

47 

57 

21 

00 

80 

7A 

90 

88 

8040 

77 

23 

82 

77 

23 

10 

F7 

21 

DE 

8048 

00 

80 

D9 

1 1 

A8 

82 

21 

14 

C9 

8050 

80 

3A 

11 

5A 

E6 

01 

20 

03 

2F 

8058 

21 

26 

80 

2B 

7E 

32 

AE 

80 

DO 

8060 

2B 

CD 

B8 

80 

3A 

OE 

5A 

4F 

21 

8068 

E5 

El 

E5 

CD 

B8 

80 

20 

FB 

CB 

8070 

EB 

36 

FE 

23 

3A 

A7 

82 

77 

IC 

8078 

23 

36 

00 

23 

D9 

7E 

23 

D9 

CF 

8080 

77 

23 

36 

01 

23 

36 

F7 

23 

44 

8088 

EB 

CD 

B8 

80 

20 

FB 

EB 

36 

2C 

8090 

FB 

23 

06 

00 

36 

E5 

23 

10 

72 

8098 

FB 

36 

F7 

23 

EB 

OD 

C2 

69 

6E 

80A0 

80 

21 

A8 

A2 

AF 

ED 

52 

23 

FC 

80A8 

44 

4D 

D5 

El 

13 

36 

4E 

ED 

CB 

80B0 

BO 

El 

21 

A8 

82 

CI 

Dl 

C9 

37 

80B8 

C5 

46 

23 

4E 

23 

78 

B7 

28 

F6 

80C0 

07 

79 

12 

13 

10 

FC 

AF 

3D 

9D 

80C8 

CI 

C9 

E5 

D5 

C5 

CD 

BB 

DO 

61 

80D0 

11 

EF 

FF 

21 

EC 

FF 

01 

A8 

B4 

80D8 

82 

36 

FO 

CD 

37 

Dl 

OA 

CB 

52 

80E0 

46 

28 

27 

CB 

4E 

28 

F8 

12 

EO 



80E8 

03 

OB 

CB 

4E 

CB 

EB 

80 

12 

6C 

80F0 

03 

OB 

CB 

4E 

20 

F9 

CB 

4E 

58 

80F8 

20 

F5 

CB 

4E 

20 

Fl 

CB 

46 

50 

8100 

28 

08 

CB 

4E 

20 

E9 

CB 

7E 

9B 

8108 

28 

E8 

7E 

36 

DO 

E6 

F8 

CI 

33 

8110 

Dl 

El 

C9 

3B 

B7 

82 

21 

E3 

E2 

8118 

81 

CD 

05 

82 

21 

D3 

81 

ED 

37 

8120 

5B 

20 

40 

01 

OB 

00 

ED 

BO 

63 

8128 

21 

DD 

81 

01 

13 

00 

ED 

BO 

30 

8130 

CD 

32 

80 

06 

03 

CD 

CB 

80 

9F 

8138 

28 

14 

10 

F9 

47 

3E 

10 

CB 

B5 

8140 

78 

C2 

14 

82 

3D 

CB 

70 

C2 

OB 

8148 

14 

82 

3D 

C3 

14 

82 

21 

FO 

3D 

8150 

81 

ED 

5B 

20 

40 

01 

OB 

00 

34 

8158 

ED 

BO 

3B 

OE 

5B 

47 

11 

00 

97 

8160 

80 

C5 

IB 

21 

03 

82 

CD 

05 

D7 

8168 

82 

2B 

20 

40 

D5 

1 1 

12 

00 

04 

8170 

19 

EB 

21 

FB 

81 

01 

OB 

00 

BC 

8178 

ED 

BO 

Dl 

06 

03 

21 

B8 

82 

C2 

8180 

IB 

CD 

5B 

82 

E6 

IC 

28 

06 

F4 

8188 

10 

F3 

CI 

C3 

13 

81 

13 

CI 

EF 

8190 

10 

CF 

C9 

CD 

99 

DO 

BF 

32 

BF 

8198 

B7 

82 

32 

ED 

FF 

3B 

OD 

5B 

E8 

81R0 

47 

C5 

3B 

OB 

5B 

E6 

40 

28 

F8 

81A8 

08 

21 

09 

5B 

CB 

E6 

CD 

13 

ID 

81B0 

81 

21 

09 

5B 

CB 

B6 

CD 

13 

56 

81B8 

81 

OE 

43 

CD 

9B 

DO 

3B 

B7 

EB 

81C0 

82 

3C 

32 

B7 

82 

32 

ED 

FF 

37 

81C8 

CI 

10 

D6 

3E 

OD 

CD 

33 

00 

F2 

81D0 

C3 

99 

DO 

46 

6F 

72 

6D 

61 

21 

81D8 

74 

69 

6E 

67 

20 

54 

72 

61 

F9 

81E0 

63 

6B 

20 

30 

30 

20 

20 

20 

BE 

81E8 

20 

20 

20 

20 

20 

20 

20 

20 

00 

81F0 

56 

65 

72 

69 

66 

79 

69 

6E 

4C 

81F8 

67 

20 

2C 

20 

53 

65 

63 

74 

62 

8200 

6F 

72 

20 

30 

30 

C5 

06 

2F 

5B 

8208 

04 

D6 

OB 

30 

FB 

C6 

3B 

70 

7F 

8210 

23 

77 

CI 

C9 

6F 

26 

00 

CD 

86 

8218 

9B 

OB 

ED 

7B 

20 

82 

El 

C9 

58 

8220 

00 

00 

E5 

ED 

73 

20 

82 

CD 

B4 

8228 

7F 

OB 

7D 

CD 

40 

Dl 

C2 

14 

BB 

8230 

82 

F3 

3E 

C9 

32 

12 

40 

BF 

BF 

8238 

32 

23 

40 

ED 

7B 

Bl 

40 

CD 

BB 

8240 

C9 

01 

CD 

93 

81 

BF 

32 

ED 

79 

8248 

FF 

11 

00 

00 

CD 

03 

DE 

21 

DF 

8250 

00 

00 

CD 

9B 

OB 

ED 

7B 

20 

F9 

8258 

82 

El 

C9 

E5 

D5 

C5 

E5 

CI 

51 

8260 

F5 

11 

EF 

FF 

21 

EC 

FF 

CD 

CD 

8268 

BB 

DO 

Fl 

32 

EE 

FF 

3B 

B7 

7C 

8270 

82 

32 

ED 

FF 

36 

88 

CD 

37 

62 

8278 

Dl 

CB 

46 

28 

21 

3E 

83 

B6 

92 
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8280 

E2 

7D 

82 

IR 

02 

03 

CB 

4E 

19 

8288 

20 

F9 

CB 

4E 

20 

F5 

CB 

4E 

60 

8290 

20 

Fl 

CB 

46 

28 

08 

CB 

4E 

6B 

8298 

20 

E9 

CB 

7E 

28 

E8 

7E 

36 

16 

82R0 

82R8 

DO 

E6 

3C 

CI 

Dl 

El 

C9 

00 

2E 


Und hier das dazugehoerige BASIC-Programm: 

10 CLSiPRINT**Fast FormatPRINT : PRINT 
20 INPUT”Welches Laufwerk":R 
30 CMD"L FFORMRT/CMD'* 

40 DEFUSRl««cH8222 
50 X=USR1CA) 

60 IFX<>OTHENPRINT''Disk error No . ” ; X 
70 END 
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Erläuterung des Maschinenprogramms "FAST FORMAT" 

Das Programm wird mit dem USR~Befehl aufgerufen. Es wird zur 
Routine MAIN gesprungen. Dort wird das HL-Register Cder Zeiger 
auf den Programmtext) gerettet. Die Routine 0A7FH liest das 
Argument des USR-Befehls als Integerzahl in das HL-Register, 
interessant ist davon aber nur das niederwertige Byte, die 
Laufwerksnummer, in der die zu formatierende Diskette liegt. 

Die Routine MOUNT (eine DOS-Routine, die bei D140H beginnt), 
selektiert dieses Laufwerk und überprüft, ob eine Diskette in 
diesem Laufwerk liegt und die Laufwerksklappe geschlossen ist. 
Sollte dies nicht der Fall sein, wird zur Fehlerbehandlungsrou¬ 
tine gesprungen. Sonst werden die Interrupts abgeschaltet, der 
Bildschirm gelöscht C01C9H) und die eigentliche Formatroutine 
aufgerufen. Zum Schluß richtet das DOS das Inhaltsverzeichnis 
der Diskette ein (CALL 0DE03H). Wichtig: Beim Sprung auf diese 
Routine müssen das A. E und das D-Register den Wert Null 
enthalten. Schließlich, wenn alles gutgegangen ist, wird die 
Fehlernummer Null (kein Fehler) durch CALL 0A9AH zurückgegeben. 
Nun die Erläuterung der einzelnen Unterprogramme: 

BUILD: Dieses Programm baut ab der Adresse BUFFER den zu 

schreibenden Track auf. Das Aussehen des Tracks ist va¬ 
riabel, es hängt von der Einstellung für dieses Laufwerk 
ab: 

SINGLE DENSITY: 

20 Bytes OFFH 
pro Sektor: 11 Bytes OFFH 

6 Bytes OOH 
1 Byte OFEH 
1 Byte Spurnummer 
1 Byte Seitennummer (immer Null) 

1 Byte Sektornummer 
1 Byte Sektorlänge (siehe unten) 

1 Byte 0F7H (generiert Prüfsumme) 

11 Bytes OFFH 
6 Bytes OOH 
1 Byte OFBH 

n Bytes 0E5H (n ist Sektorlänge) 

1 Byte 0F7H (generiert Prüfsumme) 

Diese Daten werden für jeden Sektor geschrieben. 

Dann folgen Bytes OFFH, bis die gesamte Spur 2000H 
Bytes lang ist. 
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DOUBLE DENSITY: 


WRTTRK: 


FMSUB: 


FORMRT: 


RDSEC: 


40 Bytes 

pro Sektor: 22 Bytes 

12 Bytes 
3 Bytes 
1 Byte 
1 Byte 
1 Byte 
1 Byte 
1 Byte 
1 Byte 
22 Bytes 
12 Bytes 
3 Bytes 
1 Byte 
n Bytes 
1 Byte 

Diese Daten werden für 

dann folgen Bytes 4EH. 

Speicher belegt. 


4EH 

4EH 

OOH 

0F5H 

OFEH 

Spurnummer 

Seitennummer (immer Null) 
Sektornummer 

Sektorlänge (siehe unten) 

0F7H (generiert Prüfsumme) 

4EH 

OOH 

0F5H 

OFBH 

Daten (n « Sektorlänge) 
0F7H (generiert Prüfsumme) 


jeden Sektor geschrieben, 
bis die Spur 2000H Bytes im 


Die Sektorlänge bedeutet folgendes: 
00 * 128 Bytes 

01 * 256 Bytes 

02 * 512 Bytes 

03 * 1024 Bytes 


Die Routine WRTTRK schreibt den vorher vorbereiteten 
Speicherbereich ab BUFFER auf die Spur, auf der mo¬ 
mentan der Schreib-ZLesekopf des Laufwerks steht. 

Dieses Programm baut eine Spur im Speicher auf, 
schreibt sie auf die Diskette und versucht dann, 
jeden einzelnen Sektor wieder einzulesen, um sicher¬ 
zustellen, daß die Formatierung einwandfrei verlau¬ 
fen ist . 


FORMRT formatiert eine ganze Diskette. Die Routine 
FMSUB wird für jede einzelne Spur aufgerufen, dann 
wird der Schreib-ZLesekopf des Laufwerks eine Spur 
weiter nach innen gesetzt. Dies wird sooft wieder¬ 
holt, wie die Diskette Spuren hat. 

RDSEC liest einen Sektor von der Spur, auf der der 
Schreib-ZLesekopf momentan steht. 


org §000h 
sectab: defs 18 

defb 40,4eh 

secdd: defb 22.4eh.12.0,3.0f5h.0,1,22,4eh.12,0,3.0f5h.0,0 

defb 20.0ffh 

secsd: defb 11,Offh,6,0.0,1.11,Offh.6.0,0,0 

build: push de 

push bc 
Id a,C SaOeh) 
s r l a 
Id b,a 
Id d,a 
Id hl,sectab 
by; Id a,d 

sub b 
Id (hU .a 
inc hl 
add a,d 
Id (hl),a 
inc hl 
djnz by 
Id hl»sectab 
exx 

Id de,buf fer 
Id hl,secdd 
Id a.CSallh) 
and 1 
j r nz , bx 
Id hl.secsd 
bx: dec hl 

Id a.Chl) 

Id CfillerD.a 
dec hl 
call wrtstr 
Id a,(5a0ehD 
Id c»a 
push hl 
buildl: pop hl 
push hl 

build2: call wrtstr 

jr nz,build2 
ex de,hl 
Id (hl)»Ofeh 
inc hl 

Id a.(t rksec) 

Id Chl),a 
inc hl 
Id ChD.O 
inc hl 
exx 

Id a.(hl) 
inc hl 
exx 

Id (hU.a 
inc hl 
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build3i 

build4: 


filier 


wr ts t r : 


uxr t s 11 : 

wr tst2: 
wr11 rk: 


Id 

Chi),1 

inc 

hl 

Id 

Chi),0f7h 

i nc 

hl 

ex 

de. hl 

call 

wrtst r 

jr 

nz.build3 

ex 

de.hl 

Id 

Chi).Ofbh 

inc 

hl 

Id 

b.O 

Id 

Chi).0e5h 

inc 

hl 

d jnz 

build4 

Id 

Chi).0f7h 

i nc 

hl 

ex 

de.hl 

dec 

c 

jP 

nz.bui ldr 

Id 

hl.buffer+2000h 

xor 

a 

sbc 

hl.de 

inc 

hl 

Id 

b.h 

Id 

c.l 

push 

de 

pop 

hl 

inc 

de 

Id 

Chi).04eh 

equ 

Idir 

$-1 

pop 

hl 

Id 

hl.buffer 

pop 

bc 

pop 

ret 

de 

push 

bc 

Id 

b. Chi) 

inc 

hl 

Id 

c. Chi ) 

inc 

hl 

Id 

a. b 

or 

a 

jr 

z , wrtst2 

Id 

a, c 

Id 

C de).a 

inc 

de 

d jnz 

wrtst 1 

xor 

a 

dec 

a 

pop 

ret 

bc 

push 

hl 

push 

de 

push 

bc 




cal l 

resel+5 


Id 

de,Offefh 


Id 

hl.Offech 


Id 

bc,buf f er 


Id 

(hl),OfOh 


cal l 

wai t 


Id 

a,Cbc) 

wrt 1 : 

bi t 

0, (hU 


jr 

2 ,wr 13 


bi t 

1 . (hl) 


jr 

2 ,wrt1 


Id 

(de),a 


inc 

bc 


Id 

a, ( bc ) 

wrt 1 1 : 

bi t 

1. (hl) 


jP 

2 ,wrt11 

wrt12: 

Id 

(de),a 


inc 

bc 


Id 

a, ( bc ) 

wrt13: 

bit 

1.(hl) 


jr 

nz »wr112 


bit 

1,(hl) 


jr 

nz.wrt12 


bit 

1,(hl) 


jr 

nz,wrt12 


bit 

0. (hl) 


jr 

2 .wrt3 


bit 

1, (hl) 


jr 

nz,wrt12 


bit 

7,(hl) 


jr 

2 »wrt13 

wrt3: 

Id 

a,(hl) 


Id 

(hl)»OdOh 


and 

0f8h 


pop 

bc 


pop 

de 


pop 

ret 

hl 

f msub: 

Id 

a.(t rksec) 


Id 

hl , st r3 


cal l 

convrt 


Id 

hl , st r1 


Id 

de,(4020h) 


Id 

l d i r 

bc. 10 


Id 

hl ,str2 


Id 

Idir 

bc » 19 


call 

bui l d 


Id 

b.3 

f orm2: 

cal l 

wr 11 rk 


jr 

z,f orm3 


d jnz 

f orm2 


Id 

b. a 


Id 

a. 16 
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f orm3: 


f orm4: 


f ormS: 


f orm6: 


format : 


f orm 1 : 


f orml 1 : 


blt 

7,b 

jp 

nz,dskerr 

dec 

a 

bit 

6.b 

jp 

nz,dskerr 

dec 

a 

jp 

dskerr 

Id 

hl ,str4 

Id 

de.C4020h5 

Id 

Idir 

bc , 10 

Id 

a.C 5a0eh) 

Id 

b. a 

Id 

de.sectab 

push 

bc 

Id 

a.C de) 

Id 

hl,st r5+9 

cal l 

convr t 

Id 

hl . (4020h) 

push 

de 

Id 

de. 18 

add 

hl .de 

ex 

de.hl 

Id 

hl .str5 

Id 

Idir 

bc . 11 

pop 

de 

Id 

b.3 

Id 

hl.buffer 

Id 

a.(de) 

cal l 

rdsec 

and 

Ich 

jr 

z,f orm6 

d jnz 

f ormS 

pop 

bc 

jp 

f TOSUb 

inc 

de 

pop 

bc 

d jnz 
ret 

f orm4 

cal l 

restor 

xor 

a 

Id 

C t rksec).a 

Id 

(Offedh).a 

Id 

a. (SaOdh) 

Id 

b. a 

push 

bc 

Id 

a.C 5a0ah) 

and 

40h 

jr 

z.f orml1 

Id 

hl.5a09h 

set 

4. Chi) 

cal l 

f msub 

Id 

hl.5a09h 

res 

4. (hl ) 
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call f msub 
Id c,43h 
call isscmd 
Id a.(t rksec) 

inc a 

Id (t rksec) . a 
Id (Offedh).a 
pop bc 
djnz forwl 
Id a,13 
call 33h 
jp restor 

strl: defm 'Formating ' 

str2: defw 'Track ' 

5tr3: defm '00 

5tr4: defm 'Verifving ' 

str5: defm Sector 00' 

convrt: push bc 

Id b,2fh 
convl: inc b 

sub 10 
jr nc,convl 
add a,3ah 
Id Chi) ,b 
inc hl 
Id ChD.a 
pop bc 
ret 

dskerr: Id l , a 
Id h.O 
call OaSah 
Id sp,(stack) 
pop hl 
ret 

stack: defw 0 

main: push hl 

ld (stack),sp 

call 0a7fh 

Id a, l 

call mount 

jp nz.dskerr 

di 

Id a,0c9h 
Id (4012h).a 
xor a 

Id (4023h).a 
Id sp.(40blh) 
call 01c9h 
call f ormat 
xor a 

Id (Offedh).a 
Id de.O 
call 0de03h 
Id hl.O 
call 0a9ah 
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Id 

sp,(Stack) 


pop 

ret 

hl 

rdsec: 

push 

hl 


push 

de 


push 

bc 


push 

hl 


pop 

bc 


push 

af 


Id 

de,Offefh 


Id 

hl.Of fech 


cal l 

resel+5 


pop 

af 


Id 

(Offeeh).a 


Id 

a, (t rksec) 


Id 

(Offedh),a 


Id 

(hl).88h 


cal l 

wai t 


bit 

0. (hl) 


jr 

z. rdsc3 

rdscO: 

Id 

a,83h 


and 

(hl) 


jP 

po,rdscO 

rdsc1 : 

Id 

a, (de) 


Id 

(bc).a 


inc 

bc 

rdsc2: 

bit 

1. (hl ) 


jr 

nz,rdsc1 


bit 

1. (hl) 


jr 

nz,rdsc1 


bit 

1 . (hl) 


jr 

nz,rdsc 1 


bit 

0. (hl ) 


jr 

z. rdsc3 


bit 

1. (hl ) 


jr 

nz.rdsc1 


bit 

7. (hl) 


}r 

z , rdsc2 

rdsc3: 

Id 

a. (hl ) 


Id 

(hl).CdOh 


and 

3ch 


pop 

bc 


pop 

de 


pop 

ret 

hl 

t rksec: 

defb 

0 

sei ect 

equ 

OdOcTh 

resel 

equ 

OdObGh 

Malt 

equ 

0dl37h 

isscmd 

equ 

OdOSbh 

restor 

equ 

0d099h 

mount 

equ 

0dl40h 

buf f er 

equ 

$ 


end 

wain 
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Sektoren lesen und schreiben 


vom Basic aus 


Dieses kleine Programm können Sie in Ihre eigenen BASIC-Pro- 
gramme einbauen. Lassen Sie dann die Zeilen 30 bis 60 weg und 
übergeben Sie die in der REM-Zeile genannten Argumente an das 
Programm. Zum Programm noch folgendes: 

Das eigentliche Programm ist ein kurzes Maschinensprachepro¬ 
gramm, das in A$ eingelesen wird. Es sieht folgendermaßen aus: 


LD HL.adresse 

LD DE,disk-relativer-sektor 

CALL Unterprogramm 

LD L , A 

LD H .0 

DP 0A9AH 


Die Werte für adresse, disk-rel 
werden dann entsprechend Ihren 
gramm liest bzw. schreibt dann 
nis des USR-Aufrufs die Nummer 
(0 = kein Fehler). 


ativer-sektor und Unterprogramm 
Eingaben gePOKEd. Dieses Pro¬ 
einen Sektor und gibt als Ergeb- 
des aufgetretenen Fehlers an 


Programmlisting: 


10 REM ADsaddress, SN^sector n, FL: l = read, 2*write, 3*wp, DR*Lau 

f werksnummer 

20 CLS:PRINT"Sektor ln-/0utputPRINT:PRINT 
30 INPUT'Taufwerk C0-3)";DV:IFDV<00RDV>3THEN30 
40 INPUT"Adresse'': AD 
50 INPUT"Diskrelativer Sektor";SN 

60 INPUT^Cl) Lesen, C2) Schreiben, C3) Lese- geschuetzt schreiben" 

;FL 

70 RESTORE 

80 READA$:I FASO"SECI0"THEN80 

90 A$="":F0RX=1T015:READA:A$=A$+CHRSCA):NEXTX:F0RX=1TOFL:READDR:NEXTX 
100 X = VARPTRC AS) : X = PEEK C X+1)+256*PEEK C X+2) : I FX > 32767THENX:=X-65536 
110 P0KEX-tl,CAD AND 255):P0KE X+2 , C INTC AD/256) AND255) 

120 P0KEX+4,(SN AND 255):P0KE X+5,CINT(SN/256)AND255) 

130 P0KEX+7,CDR AND 255):P0KE X+8,(INTCDR/256)AND255) 

140 P0KE8cH5A08,DV:DEFUSRl=X:X = USRl (0) : IFX = 0THENEND 
150 PRINT"Disk Error No.":X:END 
160 DATASECIO 

170 DATA33,0,0,17,0,0,205,0,0,111,38,0,195,154,10 
180 DATA-12433,-12417,-12421 
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Zt^ei Tips für den Betrieb eines einfarbigen Monitors an. 
Colour-Genie 


Viele Colour-Genie-Benutzer habe an Ihren Computer einen 
einfal^figen Monitor angeschlossen, da diese billiger als 
ein RGB-Farbmonitor sind, aber ein besseres Bild liefern, 
als ein Fernseher. 

In diesem Falle kann man die Schrift noch verbessern, indem 
man 


1 


Rlle Farben auf hellweiß umsetzt CCOLOUR 16). 

Dies geht bei Basic-Programmen sehr einfach: 

In den Adressen 4390H bis 439FH legt das Basic 
eine Farb-Tabelle an, die festlegt, welche Farbe durch 
welchen Colour-Befehl gewählt wird. Alles was Sie nun 
machen müssen, ist in diese Tabelle überall den 15 
POKEn (Dies entspricht Hellweiß, s. auch Anhang C). 
Also: 


F0RA = &H4390 TO «cH439F : POKE A, 15 : NEXT 

Bei Naschinenspracheprogrammen und Programmen, die 

direkt in den Farbspeicher POKEn, hilft dies i.d.R. nicht. 


2.) Eine kleinen Geräteumbau vornimmt: 

In der Video-Schaltung des Colour-Genies werden die 
Matrix-Punkte aller Zeichen verbreitert, damit bei 
Betrieb mit einem Farb-Fernseher die Punkte groß genug 
sind, um von der Lochmaskenröhre aufgelöst werden zu 
können. 

Dies ist bei einem Monitor natürlich überflüssig. 

Diese Punktverbreiterung kann durch Entfernen eines 
Kondensators rückgängig gemacht werden. 

Dazu gehen Sie folgendermaßen vor: 

Lösen Sie die 3 Schrauben vorne unten und öffnen Sie das 
Colour-Genie - Achten Sie darauf, daß Sie das Kabel des 
Level-Meters (wenn eingebaut) und das der Tastatur nicht 
abziehen. 

Sie sehen vorne, in der Mitte der Hauptplatine^diese 
Bauteil gruppe: 


^ 3 O Z3S 



Schneiden Sie nun mit einem feinen Seitenschneider eines der 
Anschlußbeine des Kondensators C58 durch und biegen SÄe den 
Kondensators etwas hoch. (So können Sie den Kondensator 
jederzeit wieder anlöten.) 

Schrauben Sie das Gerät wieder zu. Fertig ! 

(Etwas Elektronik-Erfahrung sollten Sie für diesen Umbau 
haben - sonst lassen Sie einen kundigen Bekannteh die 
Umrüstung vornehmen.) 
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Anhang A ColQUr-Basic-Tokens 


Basic Einfachtokens 


1 28 

T 

END 

1 29 

r 

FOR 

1 30 

J 

RESET 

1 3 1 

L. 

SET 

1 3 2 

4 

CLS 

1 33 

li 

CMD 

1 3^ 

JL 

R 0 N D 0 N 

1 35 

T 

NEXT 

1 36 

— 

DATA 

1 37 

1 

INPUT 

1 38 

1 

DIM 

1 39 

— 

READ 

1 ^0 


LET 

1 4 1 

□ 

GOTO 

1 ^2 

r 

RUN 

1 ^3 

- 

IF 

1 

1 

RESTORE 

1 ^5 


GOSUB 

1 ^6 

r 

RETURN 

1 ^7 


REM 

1 ^8 

y 

STOP 

1 ^9 

•< 

ELSE 

1 50 

¥ 

TRON 

1 5 1 

i 

TROFF 

1 52 

■ 

DEFSTR 

1 5 3 


D E F I N T 

1 5^ 

•m. 

D E F S N G 

1 55 

L 

DEFDBL 

1 56 


LINE 

1 5 7 

A 

EDIT 

1 58 

V 

ERROR 

1 59 


R E S U N E 

1 60 

1«^ 

OUT 

1 61 

m 

ON 

1 62 

C 

0 P E N 

1 63 

1 

FIELD 

1 6-^ 

n 

6ET 

1 6 5 

u 

PUT 

1 66 

■t 

C L 0 S E 

1 67 


LOAD 

1 68 

II 

M E R 6 E 

1 69 

m 

NAME 

1 70 

rii 

KILL 

1 7 1 

1 

LSET 

1 72 

□ 

RSET 

1 73 

■: 

SAVE 

1 7^ 

C. 

SYSTEM 

1 75 

r. 

L P R I N T 

1 76 

w 

DEF 

1 7 7 

■ 

POKE 

1 78 


PRINT 

1 79 

.1 

CONT 

1 80 


L IST 

1 8 1 

— 

LLIST 

1 82 

1 

DELETE 

1 83 

(i 

AUTO 

1 8^ 

u 

C L E A R 

1 85 

X 

CLOAD 

1 86 

1 

C S A V E 

1 87 


NEW 

1 8 8 


TAB < 

1 89 

■ 

TO 

1 90 

■ 

FN 

1 9 1 

- 

USING 

1 92 


VARPTR 

1 93 

= 

USR 

1 9^ 

+ 

ERL 

1 95 

S 

ERR 

1 96 

m 

STRINGS 

1 97 

X 

I NSTR 

1 98 


CHECK 

1 99 

N 

TIME$ 

200 

♦ 

MEN 

201 


INKEY$ 

202 

■ 

THEN 

203 

II 

NOT 


iii 

STEP 

205 


+ 

206 

= 

- 

2 07 

1 

t 

208 

z: 

/ 

209 

■ 

L 

2 1 0 

tm 

AND 

2 1 1 


OR 

2 1 2 

1 

> 

2 1 3 

1 

= 

2 1 ^ 

% 

< 

2 1 5 

= 

SGN 

2 1 6 

III 

I NT 

2 1 7 

— 

ABS 

2 1 8 


FRE 

2 1 9 

1 

I NP 
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220 


POS 

22 1 

II 

SQR 

222 


RND 

223 

/ 

LOG 

22^ 


EXP 

225 

1 

COS 

226 

r 

SIN 

227 

\ 

TAN 

228 


ATM 

229 


PEEK 

230 

• 

CV I 

231 


CVS 

232 


CVD 

233 

□ 

EOF 

23^ 


LOC 

235 

O 

LOF 

236 

r 

MK I $ 

237 


MKS$ 

238 

« 

MKD$ 

239 

L. 

CI NT 

2^0 

-i 

CSNG 

24 1 


CDBL 

2^2 

♦ 

FIX 

243 


LEN 



STR$ 

245 

» 

VAL 

246 

- 

ASC 

247 


CHR$ 

248 

□ 

LEFT$ 

249 


R I GHT$ 

2 50 

n 

M I 

25 1 

4^ 

' 


Colour-Basic Doppeltokens 


255 

1 28 

T 

COLOUR 

255 

1 29 

r 

FCOLOUR 

255 

1 30 


KEYPAD 

255 

1 31 

L 

□ OY 

255 

1 32 

4 

PLOT 

255 

1 33 

¥ 

FGR 

255 

1 34 

A 

L G R 

255 

1 35 

T 

FCLS 

255 

1 36 

— 

PLAY 

255 

1 37 

1 

CIRCLE 

255 

1 38 

1 

SCALE 

255 

1 39 

— 

SHAPE 

255 

1 40 


NSHAPE 

255 

1 4 1 

□ 

XSHAPE 

255 

1 42 

T 

PA I NT 

255 

1 43 

. 

C P 0 I N T 

255 

1 44 

1 

NPLOT 

255 

1 45 

m 

SOUND 

255 

1 46 

r 

CHAR 

255 

1 47 

1 

RENUM 

255 

1 4 8 

> 

SWAP 

255 

1 49 

< 

FKEY 

255 

1 50 

¥ 

CALL 

255 

1 51 

i 

VERIFY 

255 

1 52 

m 

BGRD 

255 

1 53 


NBGRD 

(Gueltig fuer die 

neuen R 0 M s ) 
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Anhang B: Dezimal-, Hexadezimal-, ASCII-Tabelle 


0 

= 

00H 


1 

= 

3 

= 

03H 


4 

= 

6 

= 

06H 


7 

= 

S 

= 

09H 


1 0 

= 

1 2 

= 

0CH 


1 3 

= 

1 5 

= 

0FH 


1 6 

= 

1 8 

= 

1 2H 


1 9 

= 

2 1 

= 

1 5H 


22 

= 

2^ 

= 

1 8H 


25 

= 

27 

= 

1 BH 


28 

= 

3 0 

= 

1 EH 


3 1 

= 

33 

= 

2 1 H 

} 

34 

= 

3 6 

= 

24H 

$ 

37 

= 

39 

= 

27H 

' 

40 

= 

^2 

= 

2AH 


43 

= 

^5 

= 

2DH 

- 

46 

= 

^3 

= 

30H 

0 

49 

= 

5 1 

= 

33H 

3 

52 

= 

5^ 

= 

36H 

6 

55 

= 

57 

= 

39H 

9 

58 

= 

60 

= 

3CH 

< 

61 

= 

63 

= 

3FH 

7 

64 

= 

6 6 

= 

42H 

B 

67 

= 

69 


45H 

E 

70 


72 

= 

48H 

H 

73 

= 

75 

= 

4BH 

K 

76 

= 

78 

= 

4EH 

N 

79 

= 

8 1 

= 

5 1 H 

Q 

82 

= 

84 

= 

54H 

T 

85 

= 

8 7 

= 

57H 

y 

88 

= 

90 

= 

5AH 

Z 

91 

= 

93 

= 

5DH 

1 

9 4 

= 

96 

= 

60H 

■' 

97 

= 

99 

= 

63H 

c 

1 00 

= 

1 02 

= 

66H 

f 

1 03 

= 

1 05 

= 

69H 

i 

1 06 

= 

1 03 

= 

6CH 

1 

1 09 

= 

1 1 1 

= 

6FH 

o 

1 1 2 

= 

1 1 4 

= 

72H 

r 

1 1 5 

= 

1 1 7 

= 

75H 

u 

1 1 8 

= 

1 20 

= 

78H 

X 

1 2 1 

= 

1 23 

= 

7BH 


1 24 

= 

1 26 

= 

7EH 


1 27 

= 

1 29 

= 

81 H 

r 

1 30 

= 

1 32 

= 

84H 

4 

1 33 

= 

1 3 5 

= 

87H 

T 

1 36 

= 


0 1 H 


2 

= 

02H 


04H 


5 

= 

05H 


07H 


8 

= 

08H 


0AH 


1 1 

= 

0BH 


0DH 


1 4 

= 

0EH 


1 0H 


1 7 

= 

1 1 H 


1 3H 


20 

= 

1 4H 


1 6H 


23 

= 

1 7H 


1 9H 


26 

= 

1 AH 


1 CH 


29 

= 

1 DH 


1 FH 


32 

= 

20H 


22H 


35 

= 

23H 

# 

25H 

y. 

38 

= 

26H 

& 

28H 

< 

4 1 

= 

29H 

) 

2BH 

+ 

44 

= 

2CH 


2EH 


47 

= 

2FH 

y 

3 1 H 

1 

50 

= 

32H 

2 

34H 

4 

53 

= 

35H 

5 

37H 

7 

56 

= 

38H 

8 

3AH 


59 

= 

3BH 

i 

3DH 

= 

62 

= 

3EH 

> 

40H 

e 

65 

= 

41 H 

A 

43H 

c 

68 

= 

44H 

D 

46H 

F 

7 1 
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Anhang C Der Farbspeicher 

Vielleicht ist Ihnen auch schon aufgefallen, daß man beim 

POKEn in den Farbspeicher bei gleichem Argument andere 

Farben bekommt als mit dem COLOUR-Befehl. 

Folgende Tabelle gibt Ihnen an, wie die einzelnen Farben 

abgespeichert werden. 

CHinweis: Der Farbspeicher hat nur 4 Bit pro Adresse, 
d.h. wenn Sie den Farbspeicher mit dem PEEK- 
Befehl abfragen müssen Sie das Ergebnis mit 
15 'undieren', um die 4 nicht belegten Bits 
zu unterdrücken. Z.B.: 

X = PEEKC8cHF000) AND 15 

Es folgt nun die Vorbelegung der Farbtabelle ab SiH4390 : 

Farbe Bit 3 Bit 2 Bit 1 Bit 0 Wert Farb-Nr. 


Grau 0 
Cyan 0 
Rot 0 
Weiß 0 
Gelb 0 
Grün 0 
Orange 0 
Hellgelb 0 
Blau 1 
Hellblau 1 
Rotviolett 1 
Blauviolett 1 
Hellgrau 1 
Türkis 1 
Magenta 1 
Hellweiß 1 


0 

0 

0 

0 

1 

1 

1 

1 

0 

0 

0 

0 

1 

1 

1 

1 


0 

0 

1 

1 

0 

0 

1 

1 

0 

0 

1 

1 

0 

0 

1 

1 


0 0 10 

1 1 7 

0 2 3 

1 3 1 

0 4 4 

1 5 2 

0 6 5 

1 7 11 

0 8 6 

1 9 9 

0 10 15 

1 11 12 

0 12 13 

1 13 14 

0 14 8 

1 15 16 
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Verzeichnis der verfügbaren Colour-Genie-Software 

1.) HILFSPROGRAMME, PROGRAMMIERSPRACHEN 

COLOUR-COMPILER: Dieses Programm ist extrem wertvoll. Es bietet 
die Möglichkeit. Basicprogramme in Maschinenspracheprogramme zu 
übersetzen. 

Der wesentliche Vorteil: Ihr Programm läuft nach Compilierung 
c.a. 40 mal (!) schneller. 

Dies geschieht interaktiv, d.h. Basicprogramm, Maschinen¬ 
programm und Compiler stehen gleichzeitig im Speicher, was ein 
sehr schnelles Arbeiten ermöglicht. Dabei können c.a. 9.5 kByte 
Basicprogramm verarbeitet werden. Verzichtet man auf die 
hochauflösende Grafik, steht noch mehr Speicher zur Verfügung. 
Voraussetzung: Ihr COLOUR-GENIE MUSS AUF 32K RAM ERWEITERT 
SEIN. Die meisten Colour-Basic-Befehle werden vom 
Colour-Compiler unterstützt. Die wesentlichste Einschränkung 
ist, daß der Colour-Compiler nur Ganzzahlen (Integers) 
verarbeitet. 

Preis: 69.- DM 

COLOUR-MONITOR I: Ein Maschinensprachemonitor mit starkem 
Befehlssatz, z.B. Disassemlieren, Ascii/Hex-Dump, Bänder 
laden/schreiben, Bytes suchen. Speicher editieren/verschieben/ 
relozieren, Hex/Dezimal-Umwandlung u.a.m. 

Preis: 39.- DM 

COLOUR-ASSEMBLER: Mit diesem Programm können Maschinensprache¬ 
programme auf komfortable Weise entwickelt werden. Das 
Programmieren geschieht mit Z80-Mnemonics, Labels etc. 

Der Assembler erzeugt dann das Maschinenspracheprogramm, das 
zur Probe auch direkt ausgeführt werden kann. 

Eine weitere Besonderheit des Assemblers ist, daß der 
Assembler-Text im ganz normalen Basic-Modus erzeugt wird, 
so daß alle Basic-Befehle wie EDIT, LLIST, CSAVE vom Assembler 
ausgenutzt werden. 

Preis: 69.- DM 

SDUND-EDITDR (auch im Handbuch "Colour Basic leicht gelernt" 
aufgelistet) : Ein nützliches Hilfsprogramm zur Programmierung 
des PSG-ICs (Sound-Chip). Sie editieren die PSG-Register auf 
dem Bildschirm und der entsprechende Ton wird gleichzeitig 
ausgegeben. Abschließend gibt das Programm alle PSG-Register- 
inhalte in dezimaler Schreibweise aus. 

Preis: 25.- DM 

ZEICHEN-EDITDR (auch im Handbuch "Colour Basic leicht gelernt" 
aufgelistet) : Dieses Programm ermöglicht es, 64 der 128 frei 
definierbaren Zeichen auf dem Bildschirm übersichtlich zu 
editieren. Es können auch Grafiken, wie z.B eine Schreib¬ 
schrift, erstellt werden. Abschließend werden die definierten 
Zeichen in ein Basicprogramm geschrieben, was diese für den 
späteren Gebrauch oder zur Entwicklung eigener Programme wieder 
definiert. So wird die umständliche Handhabung der•Programm¬ 
ierung der definierbaren Zeichen umgangen. 

Preis: 25.- DM 


106 



GRRFIK-EDITOR: Wenn Sie Ihr Colour-Genie auf 32K RRM auf- 
gerüstet haben, können Sie dieses Programm einsetzten, denn 
der '"Grafik-Editor" hat eine Länge von 26000 Bytes! 

Er bietet die Möglichkeit, Grafiken im FGR-Modus mit einer 
Vielzahl von leistungsstarken Kommandos zu kreieren. 
Abschließend wird ein Basic-Programm erzeugt werden, das, 
eingebunden in ein eigenes Programm, das Bild blitzschnell 
wieder auf den Bildschirm bringt. Sie können also auch komplexe 
Grafiken sehr schnell fertigstellen und sie hinterher beliebig 
verwenden. 

Preis: 69.- DM 

SHAPER: Die Handhabung des Basicbefehls "SHAPE" ist recht 
umständlich. Hier bringt der "Shaper" Abhilfe: Mit wenigen 
Tastendrücken erzeugen Sie eine Figur, die abschließend 
im Foramt der "Shape-Table" abgespeichert wird. 

Preis: 25.- DM 

COLROT: Ein sehr nützliches Grafikprogramm, für alle die mit 
großen Texten Aufmerksamkeit erregen wollen (z.B. im 
Schaufenster). Colrot erzeugt Laufschriften mit bis zu 512 
Zeichen Länge, Titel und Fußschrift, Inversdarstellung, Inter¬ 
mezzo UcV.a.m. Neu:Texte können auf Band gespeichert werden. 

Ein komfortabler Editor ermöglicht einfaches Arbeiten. 

Preis: 69.- DM 

BASICODE 2 (!!): Der neue Basicode-Standard für das 
Colour-Genie (kompatibel zu Basicode 1). Dieses Programm 
macht ihr Colour-Genie Basicode kompatibel I 

Basicode ist das Standard-Basic, in dem z.B. das WDR-Fernsehen 
Programme austrahlt. Eine Hardwareänderung ist nicht nötig. 
Preis: 25.- DM 

ZEICHENEDIT0R+: Dieser Editor, in Maschinensprache geschrieben, 
ermöglicht es alle 128 Zeichen sehr schnell und komfortabel 
zu editieren. Dabei gibt es sogar Befehle um Kreise zu 
zeichnen, Zeichen zu kopieren/duplizieren/rotieren/invertieren 
u. V. a . m. 

Preis: 39.- DM 

BASIC+5: Dieses Programm erweitert das normale Basic um 5 
Befehle: Im Grafikmodus können beliebige Texte dargestellt 
werden, Rechteckflächen können gemalt werden, mit "SAVE" können 
Machinenspracheprogramme gesichert und mit "LOAD" komfortabel 
geladen werden. Ferner steht ein Eingabebefehl zur Verfügung, 
der an beliebige Speicherzellen schreibt. 

Preis: 39.- DM 
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ZEICHENSÄTZE: Dieses Programm läßt Sie den vorhandenen Zeichen¬ 
satz für alle ASCII-Zeichen MahlMeise gegen einen von acht 
neuen, interessanten Zeichensätzen ersetzen. 

Für dieses Programm muß Ihr Colour-Genie mit 32K RAM 
ausgerüstet sein. 

Preis: 25.- DM 

SCREEN-PRINTER: (Auch in dem Buch ^Das Colour-Genie-Buch 1*' 
aufgelistet.) Auf dieses Programm haben die Besitzer des STAR- 
Druckers DP 510 bzw. DP 515 sicher gewartet ! 

Es ermöglicht es Ihnen, den Bildschirm jederzeit komplett auf 
Ihren Drucker auszugeben, egal ob Sie im FGR- oder im LGR-Modus 
sind. Definierte und feste Grafikzeichen werden ebenfalls mit 
ausgedruckt. Auch für dieses Programm brauchen Sie 32K RAM und 
natürlich einen STAR DP 510 / DP 515 Drucker. 

Preis: 39.- DM 

COLOUR-MONITOR III: Dieses Programm wird alle, die auf 
Maschinensprache-Ebene programmieren begeistern ! 

Der ^^Colour-Monitor III" ist nicht nur ein Monitor mit den 
üblichen Befehlen, wie ASCII-Dump, Hex-Dump, Disassem- 
blieren, Bänder schreiben etc., sondern ein Monitor mit 
eingebautem Assembler, Find-Assembler und der Möglichkeit 
Maschinenspracheprogramme in Einzelsehrittausführung zu 
testen ! Das Arbeiten wird neben dem Super-Befehlssatz 
durch raffinierte Aufteilung des Bildschirms erleichtert. 

Für dieses Programm benötigen Sie ein Colour-Genie mit 32K Ram. 
Ein ausführliches deutsches Handbuch liegt bei. 

Preis: 95.- DM 

COLOUR-FORTH: Endlich gibt es eine leistungsstarke Version der 
Forth-Programmiersprache auch für das Colour-Genie! 

"Colour-Forth" ist eine für Kassettenbetrieb angepaßte Version 
des FIQ-Forth, die um viele Befehle für das Colour-Genie 
erweitert wurde (Graphik. Ton...). Der wesentliche Vorteil der 
Programmiersprache Forth ist die extrem schnelle 
Ausführungszeit der Programme, die in unserem Forth noch durch 
Benutzung des eingebauten Assemblers gesteigert werden kann I 
Für dieses Programm benötigen Sie 32K Ram, sowie die neuen 
Basic-Roms, die seit April '83 in alle Colour-Genies eingebaut 
sind. Ein ausführliches deutsches Handbuch wird mitgeliefert. 
Preis: 95.- DM 

COLOUR-TEXT: Endlich können alle Colour-Genie-Besitzer, die 
einen Drucker haben in den Genuß einer komfortablen Textver¬ 
arbeitung kommen I Colour-Text erweitert die Bildschirmbreite 
auf 55 Zeichen, die maximale Zeilenlänge ist 64 Zeichen 
(horizontales Scrolling). Sie sind mit dem Cursor ständig im 
Text, und keine Steuerzeichen verunstalten den Text, da die 
verschiedenen Schriftarten durch Farben gekennzeichnet sind. 
(Für Benutzer eines Schwarz/Weiss-Sichtgerätes extra Status¬ 
zeile.) Das Programm unterstützt alle gängigen Drucker ^STAR, 
EPSON, ITOH. Typenrad). Wenn Sie einen grafikfähigen STAR-, 
EPSON- oder ITOH-Drucker haben können Sie sogar 
selbstdefinierte Grafikzeichen in den Text einfügen ! 

Ein deutsches Handbuch liegt bei. 

Preis: 95.- DM 
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2.) SPIEL- u. GRAFIKPROGRAMME 


INVASION AUS DEM WELTRAUM: Ein Maschinensprocheprograww, das 
die Sound- u. Grafikmöglichkeiten des Colour-Genies voll 
ausnutzt. Ihre Aufgabe ist es» einen Pulk von Invasoren 
abzuwehren, der sich der Erde nähert. 

Die Invasoren werden dabei immer schneller und gefährlicher. 
Preis: 39.- DM 

PUNKTEOAGD: Bei diesem Spiel geht es darum, alle Punkte in 
einem Labyrint aufzusammeln, bevor Sie von einem Wächter 
eingeholt werden. Schnelle Grafik und Ton durch Maschinen¬ 
sprache . 

Preis: 25.- DM 

WURM: Unser derzeit schnellstes Action-Spiel. Ein Wurm kommt 
von oben den Bildschirm herab und versucht Sie zu vernichten. 
Dabei hat er die Spinne, die Fliege und die Ente als Helfer. 
Kein Spiel für ruhige Stunden! 

Preis: 39.- DM 

BREAK OUT: Bei diesem Video-Spiel muß eine Mauer mit Ihrem Ball 
zerstört werden. Dabei können verschieden Schwierigkeitsgrade 
vorgewählt werden. Hohe Geschwindigkeit durch Maschinensprache¬ 
programmierung . 

Preis: 39.- DM 

DEMOPROGRAMM: Hiermit können Sie besser als mit der mit Ihrem 
Colour-Genio z.Zt. mitgelieferten englischen Demokassette die 
Möglichkeiten Ihres Colour-Genies demonstrieren. 

Preis: 25.- DM 

ANDROMEDA: Ein erstklassiges dreidimensionales Weltraumspiel 
mit ansprechender Grafik. Feindliche Raumschiffe kommen auf Sie 
zu; vernichten Sie diese, bevor sie Ihnen wertvolle Energie ab¬ 
gesaugt haben. Ist die Zeit abgelaufen, so eilt Ihnen Ihre 
Mutterbasis zu Hilfe; aber das Auftanken will auch gelernt 
sein. 

Preis: 39.- DM 

MAU-MAU: Endlich haben Sie einen Spielpartner, der nicht wütend 
die Karten wegwirft, wenn er am verlieren ist. Dies dürfte wohl 
aber auch selten der Fall sein, vielmehr wahrscheinlich ist es, 
daß Sie den Computer vor Wut ausschalten, da ihr Computer Dank 
einer hervorragenden Taktik auf Sieg programmiert ist. 

CEr schummelt nicht 1!) Gespielt wird nach den üblichen Regeln. 
Preis: 25.- DM 

HEKTIK: Stellen Sie sich vor. Sie wären in einem Neubau mit 6 
Geschossen, bei dem die Ebenen durch Leitern verbunden sind. 
Oetzt kommen Ihnen von oben Verfolger entgegen. Sie müßen sich 
ihnen stellen, denn es gibt keinen Fluchtweg. Graben Sie an 
strategisch wichtigen Stellen Löcher in den Boden, um so’ Ihre 
Verfolger auszuschalten. 

Preis: 39.- DM 
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METEOR: Ein Super-Rction-Spiel im Grafik-Modus Ihres 
ColourGenies. Sie befinden sich in einem Meteoritenfeld und 
werden von Meteoriten, Sternen und schiessenden Ufos bedrängt. 
Das Programm zeichnet sich durch sehr schnelle Grafik und gute 
Toneffekte aus. 

Preis: 69.- DM 

MOTTEN: Bei diesem Videospiel müßen Sie Kolonnen von Motten 
bekämpfen, die in gefährlichen Sturzflügen anfliegen und dabei 
auch noch schiessen. 

Preis: 39.- DM 

PRNIK: Ein Programm für 2 Spieler. Man muß versuchen, den 
Gegner einzumauern. Wählbare Geschwindigkeit macht ''Mauer" 
entweder zu einem Reaktions- oder zu einem Strategiespiel. 

Das Programm kann wahlweise mit Joysticks oder mit der Tastatur 
bedient werden. 

Preis: 25.- DM 

TRUSENDFUß: Hier sollen Sie einen Wurm so steuern, daß er nur 
Futter aber kein Gift frißt. Dazu kommen noch Kraftfutter und 
Gegengift. Ein sehr unterhaltsames Geschicklichkeitsspiel für 
die ganze Familie. Bei Spielbeginn können viele verschiedene 
Geschwindigkeiten und Schwierigkeitsstufen vorgewählt werden. 
Preis: 39.- DM 

COLOUR-SCHRCH: Jetzt können Sie gegen Ihr Colour-Genie auch 
Schach spielen. Colour-Schach bietet 4 verschiedene Spiel¬ 
stärken, Rufzeichnung eines laufenden Spieles auf Kassette, 
Rndern von Stellungen, einen Demonstrationsmodus und anderes 
mehr. Die Figuren werden auf ansprechende Weise grafisch 
dargestellt. 

Preis: 69.- DM 

EXNIMROID: Ein Denkspiel, abgeleitet vom bekannten Nim-Spiel. 

Es geht darum, aus mehreren Häufchen den letzten Spielstein 
zu nehmen. Sie spielen gegen den Computer. 

Preis: 25.- DM 

KINGS: Eine Regierungssimulation, bei der Sie für eine Dauer 
von 8 Jahren eine Insel regieren sollen. Dabei kann nur der 
kluge Einsatz aller Faktoren zu einem Erfolg führen. Haben 
Sie Ihre Rmtszeit überlebt, werden Ihre Taten ausgewerted, und 
Sie können dann auch weiter regieren. 

Preis: 25.- DM 

CONQUER: Ein spannendes Videospiel - erobern Sie die 
Spinnenfestung ! 

Preis: 25.- DM 
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MAMPFMRN: Ähnlich wie unser Spiel ''Punkt e j agd*', nur daß Sie 
hier von mehreren Gespenstern verfolgt werden, die Sie unter 
bestimmten Bedingungen jedoch auch fressen können. 

Preis: 25.- DM 

MRMPFMAN 2: Die neue Version von Mampfman ! Excellente Grafik 
und hohe Spieldynamik. Ein sehr empfehlenswertes Programm ! 
Preis: 39.- DM 

COLOUR-KONG: Das absolute Videospiel ! Retten Sie Ihre 
Freundin vor dem wilden Rffen. Mehrere Ebenen, super Grafik 
und Musik. Ruf dem Band finden Sie Versionen für 32K und 
16K RRM 

Preis: 69.- DM 

PRNZERKRMPF: Ein Spiel für zwei Personen (JOYSTICKS und 32K RRM 
erforderlich). Liefern Sie sich mit Ihrem Gegner spannende 
Panzerschlachten ! Das Programm verfügt über 3 verschiedene 
Gelände mit Minen etc. 

Preis: 69.- DM 

EIS: Ein spannendes, zugleich jedoch auch recht schwieriges 
Rctionspiel mit strategischen Elementen, Sie befinden sich in 
einem Kühl raum und müßen Eisblöcke so ans Rutschen bringen, daß 
die gefährlichen Schneemonster vernichtet werden. 

Preis: 39.- DM 

ERGLE: Vernichten Sie verschiedene Schwadronen von Vögeln, 
bevor Sie versuchen das große Mutterschiff zu zerstören. 

Preis: 39.- DM 

GRME of LIFE: Dieses bekannte Programm simuliert das Wachstum 
von Bakterienkulturen. Die Regeln werden im Programm erklärt 
und einige interessante Figuren sind fest abgespeichert. 

Preis: 25.- DM 

SRUG: Ein lustiges Videospiel, bei dem Sie aus einem 
unterirdischen Labyrint Termiten ansaugen müßen, wobei Sie sich 
vor giftigen, roten Termiten hüten müßen. 

Das Spiel kann auch mit Joysticks gesteuert werden. 

Preis: 39.- DM 

ExREVERSIC: Spielen Sie Reversi gegen Ihr Colour-Genie ! 

Dabei kann zwischen mehreren Spielstufen gewählt werden. 

Das Spielbrett wird auf ansprechende Weise graphisch 
dargestellt. 

Preis: 39.- DM 

BRNG-BRNG: Zwei Cowboys begegnen sich in der Prärie und liefern 
sich ein erbittertes Duell. Für dieses Spiel sind Joysticks 
er f Order lieh. 

Preis: 39.- DM 

NETZO: Versuchen Sie mit Ihrem Pinsel alle Flächen auszumalen, 
ohne von Ihren Gegnern erwischt zu werden. 

Preis: 39.- DM 



DEATH-TRAP, ein dreidimensionales Grafik-Rbenteuerspiel 
(Rdventure): 

Ein Programm zUm wahnsinnig werden! Sie befinden sich in einem 
Labyrinth mit über 1100 Räumen, in dem es von gefährlichen 
Einwohnern und Gegenständen wimmelt. Finden Sie die wichtigen 
Gegenstände und wenden Sie sie richtig an, um aus dem Labyrinth 
zu entkommen. Zwei Vorraussetzungen müssen allerdings erfüllt 
sein: Ihr Colour-Genie muß 32K RRM haben, und Sie müssen 
elementare Englischkenntnisse besitzen, da die Sie Kommandos in 
Form von englischen Sätzen eingeben. 

Preis: 69.- DM 

TCS-CHOPPER: Die Geschmäcker sind verschieden - aber dies ist 
wohl das beste Videospiel, das es z.Zt. für das Colour-Genie 
gibt! Dreizehn Ihrer Kameraden sind in einem von vier riesigen 
Labyrinthen ausgesetzt worden. Versuchen Sie nun, diese mit 
Ihrem Hubschrauber zu retten' Aber Vorsicht, Ihre Freunde 
werden scharf bewacht! 

32K RRM sind auch hier notwendig. 

Preis: 69.- DM 

DOPPEL-WURM: Vielleicht kennen Sie unser beliebtes Spiel 
"Tausendfuß". "Doppel-Wurm" ist sehr ähnlich, allerdings 
spielen hier zwei Spieler gegeneinander, was die Spannung 
natürlich erhöht. Achtung: Nur für Joystick-Besitzer ! 

Preis: 39.- DM 

MRDTREE: Ein schwieriges Videospiel: Sie sind eine fleißige 
Biene und müssen eine Reihe von Blumen ständig bestäuben, damit 
diese nicht eingehen. Doch diese Blumen sind undankbar und 
gefährden Sie. 

Preis: 39.- DM 

DIG-BOY: In Ihrem unterirdischen Reich kämpfen Sie gegen 
Drachen und andere Untiere. Locken Sie diese unter einen 
der wackligen Felsen, um sie zu zerschmettern. 

Dieses Spiel ist sehr empfehlenswert, da es eine Menge 
Abwechslung bietet. 

Preis: 39.- DM 

EMPIRE: Für alle, die nicht nur reine Aktion wollen, ist 
"Empire" das ideale Spiel. Dieses Spiel kann mit bis zu sechs 
Spielern gleichzeitig gespielt werden, der Computer spielt 
ebenfalls mit. Jeder Spieler hat ein kleines Reich, das nun 
durch Handel, Politik, Krieg u.s.w. zu Wohlstand kommen soll. 
Dabei stehen Sie mit den anderen Nationen ständig in Beziehung, 
sei es durch Handel oder durch Krieg. 

Ansprechende Grafik macht das Programm noch interessanter. 

Ihr Colour-Genie muß für "Empire" auf 32K RAM aufgerüstet sein. 
Preis: 69.- DM 
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LUNAR-LANDER: Eine perfekte Mondlandungssimulation mit Super¬ 
grafik ! Die Idee ist zwar alt, aber die Ausführung dieses 
Programmes macht den ''Lunar-Lander" zu einem unserer besten 
Spiele. Sie benötigen 32K Ram. Das Spiel kann wahlweise auch 
mit den EG2013-Joysticks gesteuert werden. 

Preis: 39.- DM 

COLOUR-FROGGER: Retten Sie Ihren Frosch zuerst über die Straße 
und dann über den Fluß ! Ein spannendes Unterhaltungsspiel, 
an dem die ganze Familie lange Zeit Spass haben wird. Besonders 
gelungen ist bei diesem Programm die musiklische Untermalung. 
Preis: 39.- DM 

CRRZY-PRINT: Das neueste Spiel von 3. Buchmüller, dem Ruthor 
des TCS-Choppers - Super-Grafik und Super-Ton ! 

In 16 Levels müssen Sie, ähnlich wie bei unserem Spiel 'Netzo', 
versuchen alle Flächen auszumalen, ohne sich von den hektischen 
Gegnern erwischen zu lassen. 

Preis: 69.- DM 

MEMORY: Das beliebte Brettspiel nun auch als Version für das 
Colour-Genie ! 

Schöne Grafik und die gute Spielidee machen dieses Programm 
empfehlenswert. 

Preis: 39.- DM 
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3.) LERNPROGRRMME, ELEKTRONIKPROGRRMME: 


MRTHEMRTIK-LERNPROGRRMM: Interessant für Kinder bis in's 
Grundschulalter. Wahlweise können die vier Grundrechenarten 
geübt werden, wobei man zwischen verschiedenen Schwierigkeits¬ 
graden wählen kann. Lustige grafische Gestaltung sorgt dafür, 
daß das Üljen Spass macht . 

Preis: 25.- DM 

GRUNDEIGENSCHRFTEN DES LICHTS (OPTIK): Diese 32KByte lange 
Programm erklärt die Brechung, Reflexion, verschiedene 
Linsentvpen... Ansprechende Grafik, Benutzereingaben, Menu und 
Übungsaufgaben machen dieses Programm sehr lehrreich. 

Preis: 39.- DM 

NE555: Erklärung und Anwendung des Timer-ICs NE555 werden mit 
diesem Programm zum Kinderspiel. Tolle Grafik und ausführliche 
Dokumentation heben dieses Programm hervor. 

Preis: 25.- DM 

PLOTTER: Plotter ist ein anspruchsvolles Mathemtikprogramm, das 
beliebige Funktionen zeichnet. Wertetabellen erstellt ... 

Preis: 39.- DM 

PHYSIK DES TRANSISTORS: Ähnlich aufwendig wie beim Programm 
'Optik' werden Sie hier in die Grundeigenschaften des 
Transistors, verschiedene Schaltungen, Kennlinien u.s.w. 
eingewiesen. 

Für dieses Programm sind 32K Byte RAM erforderlich. 

Preis: 39.- DM 
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4.) MUSIKPROGRRMME 

MUSIK: Dieses Programm spielt festprogrammierte Musikstücke 
mit verblüffender Qualität. 

Preis: 25.- DM 

ORGEL: Spielen Sie Orgel auf Ihrem Colour-Genie ! 

Ihnen stehen zwei Manuale, einstellbares Delay und sogar 
eine Schlagzeugbegleitung zur Seite. 

Preis: 25.- DM 

COLOUR-SYNTHESIZER: Ein Programm, das man gesehen haben muß, um 
es überhaupt für möglich zu halten. Der Colour-Synthesizer 
macht aus Ihrem Colour-Genie einen vollwertigen 3-Kanal 
Synthesizer mit VCO, VCR, Hüllkurve, Schlagzeug... 

Rcht Einstellungen aller Regler können vorprogrammiert, auf 
Tastendruck abgerufen und auf Band gesichert werden. 

Verblüffend ist auch die graphische Darstellung. 

Preis: 69.- DM 

COMPOSER: Mit diesem Programm können Sie sehr einfach eigene 
Musikstücke komponieren. Noten, Pausenzeichen u.s.w. werden 
grafisch dargestellt, können editiert und auf Band gespeichert 
werden. 

Preis: 39.- DM 


** STRND DER TCS-SOFTWRRELISTE, COLOUR-GENIE, VOM 18.12.1983 

Beachten Sie auch die für das Colour-Genie lieferbaren Bücher: 
Technisches-Handbuch : Enthält die kompletten Schaltpläne, 
Erklärungen, CRTC-Unterlagen, PSG-Unterlagen... 

Preis: 49.- DM 

Dokumentiertes ROM-Listing für das Colour-Genie : Unerläßlich 
für den Maschinensprache-Programmierer. In diesem Buch ist der 
komplette ROM und reservierte RRM aufgelistet und erklärt. 
Preis: 59.- DM 

DRS Colour-Genie BUCH I : Ruf über 100 Seiten finden Sie hier 
interessante Programme - von Spielen bis zu Hilfsprogrammen, 
zum Teil auch in Maschinensprache - sowie wertvolle Tricks und 
Erklärungen. Ein Muß für jeden Colour-Genie-Besitzer! 

Preis: 39.- DM 

In Vorbereitung: Software für Diskette, neue Spiele ... 
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5.D PROGRAMME FÜR DISKETTENBENUTZER 

TRPE-DISK-CONV^ERTER: Dieses Programm ermöglicht es Ihnen, Ihre 
Maschinensprache-Kassetten Csofern ungeschützt) auf Diskette zu 
überspielen, wobei eine Verschiebung im Speicher möglich ist. 
Außerdem kann man von Diskette auf Diskette, von Kassette auf 
Kassette und von Diskette auf Kassette überspielen. 

Preis: 45.- DM 

COLZAP: Mit 'Xolzap" können Sie auf jeder (ungeschützten) 

Colour-Genie-Diskette alle Sektoren lesen, beliebig ändern 
(in ASCII oder Hex), Sektoren schreiben, den Disknamen 
anzeigen, den freien Platz auf der Diskette ausgeben lassen, 
u . a . m . 

Preis: 45.- DM 


116 



BESTELLFORMULAR 


Zur Bestellung von Colour-Genie-Programmen können Sie dieses 
Formular benutzten. Schicken Sie dieses an Ihren GENIE-Handler 
oder direkt an TCS Computer GmbH 
Kölnstraße 4 
5205 St. Augustin 2 
Tel.: 02241 / 28071 

Bankverbindung; 

Raiffeisenbank Menden BLZ 37069507 Konto-Nr. 1525 

Der Versand erfolgt per Nachnahme oder Vorauskasse auf obiges 
Konto Cdies natürlich nicht, wenn Sie bei Ihrem Händler 
bestellen). 


Ich bitte um Zusendung folgender TCS Colour-Genie-Programme: 


Anzahl : Name des Programms : Preis/DM : Gesamt 

= S= = SS:SS = SS3 = S3SSSS = SXSS = S5S = ZSZS3Z = SSSXSSSSS = SSS3SXS3XSKaiCSS3S = 




Gesamt 


DM 


Meine Adresse ist: 

Name: . 

Straße: . 

Ort: . 

Datum: . Unterschrift: 
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Raum für Notizen 
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